Решение задач с двумерными массивами Опции

[emyly]

Я домучила программу. Нужно найти среднее арифметическое и геометрическое элементов массива.

Посмотрите,пожалуйста. И ещё несколько вопросов возникло: в среднем арифметическом деление идёт на количество слагаемых-я умножаю 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.

Напишите,пожалуйста, где ошибки и как должно быть на самом деле!

[volvo]

Где ошибки - это тебе компилятор покажет...

А что у тебя неверно - это первый цикл (ввод элементов) - не заканчивается там, где должен бы по логике:

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;
End; { <--- Вот это добавь здесь... }

... а из предпоследней строки End убери, он не нужен...

Кстати, вот тут:

For I:=1 to t do
  For j:=1 to s do
    Sum:=sum+A[I,j]; { В цикле будет вычисляться ТОЛЬКО эта строка !!! }
Proiz:=proiz*A[I,j]; { Это - вычислится один раз после цикла }

... и как следствие - опять будет неверный результат ...

[emyly]

простите за нескромный вопрос: И что делать дальше из второй цитаты? Всмысле, как сделать так,чтобы вычисления шли в цикле, а не один раз?

[GoodWind]

For I:=1 to t do
For j:=1 to s do
begin
 Sum:=sum+A[I,j]; 
 Proiz:=proiz*A[I,j];
end;

[Бродяжник]

Что видим:

For I:=1 to t do
  For j:=1 to s do
    Sum:=sum+A[I,j]; { В цикле будет вычисляться ТОЛЬКО эта строка !!! }

Proiz:=proiz*A[I,j]; { Это - вычислится один раз после цикла }

Данная запись эквивалентна следующей:

For I:=1 to t do
  For j:=1 to s do
    begin
       Sum:=sum+A[I,j]; { В цикле будет вычисляться ТОЛЬКО эта строка !!! }
    end;

Proiz:=proiz*A[I,j]; { Это - вычислится один раз после цикла }

Это не то, чего мы хотим.
Вместо этого нужно:

For I:=1 to t do
  For j:=1 to s do
    begin
       Sum:=sum+A[I,j]; { В цикле будет вычисляться эта строка... }
       Proiz:=proiz*A[I,j]; { ...и эта тоже }
    end;

Учите матчасть: begin...end.
З.Ы. GoodWind меня опередил!

[Женя(НАРОД ПОМОГИТЕ)!]

привет народ!)помогите с задачкой)
Надо создать список домашних книг
1)Описать и вывести массив, содержащий 5 записей следующей структуры:
Название, автор, № учета, Дата издания, издательство.
2)Вывести массив в табличном виде.
3)Вывести списки книг издательства "Санкт-петербург", затем книг, изданных ранее 1990г.
4)найти самую старую книгу).


P.S. Народ помогите буду ОЧЕНЬ Благодарен!))

[мисс_граффити]

а зачем это писать в чужой теме с совершенно другими задачами?
тема закрыта.