Заполнить матрицу случайными числами от -20 до 20. Вывести на экран.
Заполнить матрицу случайными числами от -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.
Не нашли ответ?
Похожие вопросы