Помогите пожалуйста решить информатику, Паскаль.

И каков твой вклад в решение? Может быть есть что-то конкретное, что не получается

Загугли «паскаль массивы». Покопайся в результатах поиска и решишь

Простота может быть обманчивой. Например, если данный массив состоит из достаточно больших чисел типа real, то произведение всех его тридцати пяти элементов может привести к машинной бесконечности. А вообще так:

{ 1. s, p и все элементы массива А типа real, i и j типа byte или integer }

s:=0; p:=1; for i:=1 to 7 do for j:=1 to 5 do begin s:=s+A[i,j]; p:=p*A[i,j] end; writeln('Сумма элементов ',s);

writeln('Их произведение ',p);

{ 2. }

s:=0; for i:=1 to 5 do s:=s+A[3,i]; writeln('Сумма элементов 3-ей строки ',

s);

{ 3. }

p:=1; for i:=1 to 7 do p:=p*A[i,5]; writeln(р);

{ 4. } for i:=1 to 7 do begin s:=0; for j:=1 to 5 do s:=s+A[i,j]; writeln(i,' ',s) end;

{ Все сегменты кóда - сами по себе, то есть безотносительно к тому, являются ли они частью одной программы или нет }

Решения уже предложили. Но и я свою лепту внесу.

program mytask;

var
A : array[1..7, 1..5] of Integer; { 7 строк, 5 столбцов }
i, j : Integer;
Sum : Integer;
Pro, Pro5 : Int64;
Sum1, Sum2, Sum3, Sum4, Sum5, Sum6, Sum7 : Integer;

begin
Sum := 0;
Sum1 := 0;
Sum2 := 0;
Sum3 := 0;
Sum4 := 0;
Sum5 := 0;
Sum6 := 0;
Sum7 := 0;
Pro := 1;
Pro5 := 1;

{ Заполняем массив }
for i := 1 to 7 do
for j := 1 to 5 do
begin
A[i, j] := i * 10 + j;
if j = 5 then WriteLn(A[i, j]:4)
else Write(A[i, j]:4);
end;

{ Вычисляем сумму и произведение всех элементов }
for i := 1 to 7 do
for j := 1 to 5 do
begin
Sum := Sum + A[i, j]; { Сумма }
Pro := Pro * A[i, j]; { Произведение }
end;
WriteLn('Sum = ', Sum);
WriteLn('Pro = ', Pro);

{ Сумма элементов третьей строки }
for j := 1 to 5 do
Sum3 := Sum3 + A[3, j];
WriteLn('Sum-3 = ', Sum3);

{ Произведение элементов пятого столбца }
for i := 1 to 7 do
Pro5 := Pro5 * A[i, 5];
WriteLn('Pro-5 = ', Pro5);

{ Вычисляем суммы элементов всех строк
Для 3-й строки не вычисляем, т. к. она уже вычислена }
for i := 1 to 7 do
for j := 1 to 5 do
case i of
1 : Sum1 := Sum1 + A[i, j]; { Сумма строки 1 }
2 : Sum2 := Sum2 + A[i, j]; { Сумма строки 2 }
4 : Sum4 := Sum4 + A[i, j]; { Сумма строки 4 }
5 : Sum5 := Sum5 + A[i, j]; { Сумма строки 5 }
6 : Sum6 := Sum6 + A[i, j]; { Сумма строки 6 }
7 : Sum7 := Sum7 + A[i, j]; { Сумма строки 7 }
end;
WriteLn('Sum-1 = ', Sum1);
WriteLn('Sum-2 = ', Sum2);
WriteLn('Sum-3 = ', Sum3);
WriteLn('Sum-4 = ', Sum4);
WriteLn('Sum-5 = ', Sum5);
WriteLn('Sum-6 = ', Sum6);
WriteLn('Sum-7 = ', Sum7);

WriteLn('The end. Press ENTER...');
ReadLn;
end.

Учите программирование ))) https://info-master.su/mail/fs/