Двумерный массив!Написать решение в Pascal!!
Двумерный массив!Написать решение в Pascal!!
Гость
Ответ(ы) на вопрос:
Гость1)var i,j,xx:integer;
x:array [1..5] of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
if i=4 then x[j]:=xx;
end;
end;
for i:=1 to 5 do
write(x[i],' ');
end.
2)var i,j,xx,sum:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
inc(sum,xx*xx);
end;
end;
write(sum);
end.
3)var i,j,xx,ma:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(xx);
if i=5 then if ma
Не нашли ответ?
Похожие вопросы