Предмет: Информатика,
автор: asdasasaas
в двумерном массиве элементы второй строки заменить на ноль
Ответы
Автор ответа:
0
USES CRT;
VAR A:array[1..5,1..5] of integer;
i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize;
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:=random(50);
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:2, ' ');
Writeln;
end;
for j:=1 to 5 do
A[2,j]:=0;
Writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:2, ' ');
Writeln;
end;
READLN;END.
VAR A:array[1..5,1..5] of integer;
i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize;
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:=random(50);
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:2, ' ');
Writeln;
end;
for j:=1 to 5 do
A[2,j]:=0;
Writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:2, ' ');
Writeln;
end;
READLN;END.
Приложения:

Похожие вопросы
Предмет: Литература,
автор: alpineskierann2005
Предмет: Английский язык,
автор: nastyatv49
Предмет: Русский язык,
автор: juzozxc
Предмет: Геометрия,
автор: mariyasokolova