Посмотрите,пожалуйста. И ещё несколько вопросов возникло: в среднем арифметическом деление идёт на количество слагаемых-я умножаю s*t, а ответ неверный получается.
Эта программка пока без нахождения геометрического.
Код
Program massive2;
Const
t=5;
s=5;
var
A: array [1..t,1..s] of integer;
I,j:integer;
Sum,proiz,k,arif,geom.:real;
Begin
For i:=1 to t do
Begin
For j:=1 to s do
Begin
Writeln (‘vvedi element massiva a[I,j]’);
Readln (a[I,j]);
End;
Sum:=0;
Proiz:=1;
For I:=1 to t do
For j:=1 to s do
Sum:=sum+A[I,j];
Proiz:=proiz*A[I,j];
K:=s*t;
Arif:=sum/k;
Writeln (‘arif=’,arif:5:2);
Readln;
End;
End.
Const
t=5;
s=5;
var
A: array [1..t,1..s] of integer;
I,j:integer;
Sum,proiz,k,arif,geom.:real;
Begin
For i:=1 to t do
Begin
For j:=1 to s do
Begin
Writeln (‘vvedi element massiva a[I,j]’);
Readln (a[I,j]);
End;
Sum:=0;
Proiz:=1;
For I:=1 to t do
For j:=1 to s do
Sum:=sum+A[I,j];
Proiz:=proiz*A[I,j];
K:=s*t;
Arif:=sum/k;
Writeln (‘arif=’,arif:5:2);
Readln;
End;
End.
Напишите,пожалуйста, где ошибки и как должно быть на самом деле!