Дана матрица 8 на 5, заполненная случайными числами от 0 до 10.Нужно вывести на экран исходную матрицу и матрицу, в которой к третьему столбцу добавлен шестой.
Ответы
Ответ дал:
0
var
i,j,k:integer;
a:array[1..5,1..8]of integer;
begin
writeln('Исходная матрица:');
for i:=1 to 5 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(11);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Преобразованная матрица:');
for i:=1 to 5 do
begin
for j:=1 to 8 do
begin
if j=3 then a[i,3]:=a[i,3]+a[i,6];
write(a[i,j]:3);
end;
writeln;
end;
end.
i,j,k:integer;
a:array[1..5,1..8]of integer;
begin
writeln('Исходная матрица:');
for i:=1 to 5 do
begin
for j:=1 to 8 do
begin
a[i,j]:=random(11);
write(a[i,j]:3);
end;
writeln;
end;
writeln('Преобразованная матрица:');
for i:=1 to 5 do
begin
for j:=1 to 8 do
begin
if j=3 then a[i,3]:=a[i,3]+a[i,6];
write(a[i,j]:3);
end;
writeln;
end;
end.
Ответ дал:
0
Спасибо большое!)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад