Дан двумерный массив с индексами 1..10,1..10 найти сумму и произведение элементов 6-й строки числа вводятся с клавиатуры

107

392

Посмотреть ответы 2

Ответы на вопрос:

davidgjggjj

Информатика

4,4(23 оценок)

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.