tylos
Мастер
(1717)
3 года назад
const n = 4;
var x: array [1..n,1..n] of real;
i,j: integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
x[i,j] := random*(50);
Writeln('Исходный массив :');
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:0:2,' ');
writeln;
end;
for j:=1 to n-1 do
x[j,n] := (j-1)*2+1;
x[n,n] := 9;
writeln('Измененный массив :');
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:0:2,' ');
writeln;
end;
end.
Для предлагаемой задачи составить блок – схему и программу на языке Pascal.
Заменить элементы последнего столбца матрицы A(4, 4) по порядку, начиная с 1-го, числами 1,3,5,9.