⇢ КВ
Катя Васильева
ПОМОГИТЕ СОЗДАТЬ ДВУМЕРНЫЙ МАССИВ В ПАСКАЛЕ! очень нужно.
Из случайных чисел от 1 до 30 создать массив размером M*N. Вывести на экран индексы элементов массива.
Юл
Юлия
var
a:=array [1..100,1..100] of integer;
m,n,i,j :=integer;
begin
clrscr;
write('vvedite m');
read (m);
write('vvedite n');
read (n);
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
a [ i, j ] := random(30);
write(a [ i, j ] : 4);
end;
end;
readkey;
end.
Похожие вопросы