Дан двумерный массив с индексами 1..10,1..10 найти сумму и произведение элементов 6-й строкичисла вводятся с клавиатуры
Дан двумерный массив с индексами 1..10,1..10 найти сумму и произведение элементов 6-й строки
числа вводятся с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьconst
n=10;m=10;
var
a:array[1..n,1..m]of integer;
s,i,j:integer;
p:real;
begin
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
p:=1;
for j:=1 to m do
begin
s:=s+a[6,j];
p:=p*a[6,j];
end;
writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(a[i,j]:4);
end;
writeln;
writeln('S: ',s,' p: ',p:4:0);
end.
ГостьРешение в приложении!!
Не нашли ответ?
Похожие вопросы