Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 11.04.2007, 21:41   #1
AliVe
Новичок
Джуниор
 
Регистрация: 11.04.2007
Сообщений: 2
Восклицание Нахождение среднего арифметического

нужна помощь в задаче:
Имеется двумерный массив целых, положительных чисел. Найти номер строки, для которой среднее арифмитическое значений её элементов максимально.
ЗАРАНЕЕ СПАСИБО!
AliVe вне форума
Старый 12.04.2007, 00:25   #2
RSLoader
_________
Пользователь
 
Аватар для RSLoader
 
Регистрация: 27.03.2007
Сообщений: 69
По умолчанию

Код:
var
  a:array[1..100,1..100]of integer;
  i,j,n,m,maxi:integer;
  max,s:real;
begin
  write('Vvedite 4islo strok: ');
  readln(n);
  write('Vvedite 4islo stolbcov: ');
  readln(m);
  for i:=1 to n do
  for j:=1 to m do
  begin
    write('Vvedite element ',j,' stolbca ',i,' stroki: ');
    readln(a[i,j]);
  end;
  max:=0;
  maxi:=1;
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do s:=s+a[i,j];
    s:=s/m;
    if s>max then
    begin
      max:=s;
      maxi:=i;
    end;
  end;
  writeln('Vivod massiva: ');
  for i:=1 to n do
  begin
    writeln;
    for j:=1 to m do write(a[i,j],' ');
  end;
  writeln('Nomer stroki s max. srednim arifmeti4eskim elementov',max,': ',maxi);
  readln;
end.
RSLoader вне форума
Закрытая тема
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычисление среднего во временном ряде alexk Microsoft Office Excel 5 18.06.2008 14:41
Нахождение хендла Zeraim Win Api 2 23.05.2008 20:30
Нахождение производной Sota Свободное общение 11 02.05.2008 18:32
Где скачать исходник среднего текстового редактора (типа WordPad) с подробным описанием всех функций. Bill Gates Софт 2 07.01.2008 08:39
количество элементов матрицы, больших среднего арифмитического всех её элементов finch Помощь студентам 3 27.08.2007 15:48