Заполнить матрицу из 3 строк и 3 столбцов случайными числами. каждому элементу строки добавляем ее номер строки (к элементам первой строки +1, во второй +2, и к третьей +3) и вывести на экран. пожжжалуйста
Заполнить матрицу из 3 строк и 3 столбцов случайными числами. каждому элементу строки добавляем ее номер строки (к элементам первой строки +1, во второй +2, и к третьей +3) и вывести на экран. пожжжалуйста
Гость
Ответ(ы) на вопрос:
Гость Program Matrix; Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix; procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
for k:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end; procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m[i,j]:=25+random(21)+i;
end;
end;
end; begin clrscr; Auto; PrintMatrix(m); readkey; end;
Не нашли ответ?
Похожие вопросы