Заполните массив В размерностью 5 элементов положительными и отрицательными целыми...

Question

Заполните массив В размерностью 5 элементов положительными и отрицательными целыми числами и выведите его на экран монитора.
Сохраните программу и оправьте на проверку учителю.

Answer 1

Var b:array[1..5] of integer;
m:integer;
begin;
randomize;
for m:=1 to 5 do
begin;
b[m]:=random(-10,10);
writeln(b[m]);
end;
end.