Jogelv 4 ноября 2019 в 08:25
Напишите программу в паскале , которая вводит двумерный массив целых чисел 5 на 10 элементов случайным образом и выводит его на экран
Напишите программу в паскале , которая вводит двумерный массив целых чисел 5 на 10 элементов случайным образом и выводит его на экран
Const n=5; m=10;
var
a:array[1..n,1..m] of integer;
i,j:integer;
begin
Randomize;
writeln(Исходный массив:);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
end.
Пример (массив 4*5):
Исходный массив:
80 22 78 64 15
21 34 96 84 12
55 29 45 92 73
35 60 63 9 17
var
a:array[1..n,1..m] of integer;
i,j:integer;
begin
Randomize;
writeln(Исходный массив:);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
end.
Пример (массив 4*5):
Исходный массив:
80 22 78 64 15
21 34 96 84 12
55 29 45 92 73
35 60 63 9 17
Компьютеры и вычисления
146
45
Для комментирования необходимо зарегистрироваться на сайте