Предмет: Информатика,
автор: Marines25
Помогите пожалуйста!
Заполнить двумерный массив состоящий из 3 строк и 3 столбцов случайным образом. Элементы массива принадлежат промежутку от 15 до 25. Заменить главную диагональ значение числа 5 и вывести на экран полученный массив. Программа на Паскале
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: trabiyat05ru
Предмет: Українська мова,
автор: furleto4ka
Предмет: Геометрия,
автор: nmindadze7
Предмет: Биология,
автор: sunnysumenkova
Предмет: Математика,
автор: Marina2005m