Написать 2 программы для Паскаля:1)Поменяйте местами первую и последнюю строки прямоугольной таблицы.2)Найдите произведения элементов строк прямоугольной таблицы.

1

Ответы и объяснения

Лучший Ответ!
2012-02-01T14:36:28+00:00

1)

var

a:array [1..5,1..10] of integer;

i,j,p:integer;

begin

for i:=1 to 5 do 

begin

for j:=1 to 10 do

begin

a[i,j]:=random(50)+1;

write(a[i,j]:3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j:=1 to 10 do

begin

p:=a[1,j];

a[1,j]:=a[5,j];

a[5,j]:=p;

end;

for i:=1 to 5 do 

begin

for j:=1 to 10 do

write(a[i,j]:3);

writeln;

end;

end.

2)

var
a: array [1..5, 1..10] of integer;
i, j: integer;
p: real;

begin
for i := 1 to 5 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(50) + 1;
write(a[i, j]:3);
end;
writeln;
end;
writeln('произведения элементов строк');
for i := 1 to 5 do
begin
p := 1;
for j := 1 to 10 do
p := p * a[i, j];
writeln(p:25:0);
end;
end.