Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Заполнить матрицу случайными числами от -20 до 20. Вывести на экран.

Ответ оставил Гость

Program vav;
var A:array[1..20,1..20] of integer;
n,i,j:integer;
begin
randomize;
read(n);
for i:=1 to n do
 for j:=1 to n do
 A[I,j]:=(random(21)-10)*2;
for i:=1 to n do
 begin
 for j:=1 to n do
 write(A[I,j], );
writeln;
end;
end.