Question

Составьте программу,которая заполняет массив А:[1..10] случайными целыми числами в диапазоне от -10 до 10 и выводит на экран исходный массив и отрицательные элементы массива

Answer 1

program dz;

uses crt;

var mac: array [1..10] of integer;

b,c: integer;

begin

For b:=1 to 10 do

begin

mac[c]:= Randomize (-10-(10)+1)+(10);

If mac[c]<0 then

write (mac[c],', ');

end;

Writeln (mac);

end.