Андрей
5 год назад
Помогите пожалуйста!
Заполнить двумерный массив состоящий из 3 строк и 3 столбцов случайным образом. Элементы массива принадлежат промежутку от 15 до 25. Заменить главную диагональ значение числа 5 и вывести на экран полученный массив. Программа на Паскале
ОТВЕТЫ
Северин
Aug 9, 2019
Var a:array[1..3,1..3] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
a[i,j]:=random(10)+15;
if i=j then a[i,j]:=5;
write(a[i,j], );
end;
end;
end.
i,j:integer;
begin
randomize;
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
a[i,j]:=random(10)+15;
if i=j then a[i,j]:=5;
write(a[i,j], );
end;
end;
end.
297
