Я домучила программу. Нужно найти среднее арифметическое и геометрическое элементов массива.
Посмотрите,пожалуйста. И ещё несколько вопросов возникло: в среднем арифметическом деление идёт на количество слагаемых-я умножаю s*t, а ответ неверный получается.
Эта программка пока без нахождения геометрического.
Где ошибки - это тебе компилятор покажет...
А что у тебя неверно - это первый цикл (ввод элементов) - не заканчивается там, где должен бы по логике:
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; { <--- Вот это добавь здесь... }
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];
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;
привет народ!)помогите с задачкой)
Надо создать список домашних книг
1)Описать и вывести массив, содержащий 5 записей следующей структуры:
Название, автор, № учета, Дата издания, издательство.
2)Вывести массив в табличном виде.
3)Вывести списки книг издательства "Санкт-петербург", затем книг, изданных ранее 1990г.
4)найти самую старую книгу).
P.S. Народ помогите буду ОЧЕНЬ Благодарен!))
а зачем это писать в чужой теме с совершенно другими задачами?
тема закрыта.