Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2008, 16:50   #1
rainbow1
Новичок
Джуниор
 
Регистрация: 28.08.2008
Сообщений: 1
По умолчанию Помогите решить задачку

Помогите решить задачку: задан двумерный массив: [4x3].Составить алгоритм и написать програмку, которая подсчитает среднее арифметическое элементов массива, которое ментше1

Последний раз редактировалось rainbow1; 28.08.2008 в 16:52.
rainbow1 вне форума Ответить с цитированием
Старый 28.08.2008, 16:59   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Старо как мир, свои идеи предлагать надо
Код:
var...
begin
  for i := 1 to 4 do
  for j := 1 to 3 do
  if mas[i, j] < 1 then
  begin
    inc(k);
    sum := sum + mas[i, j]
  end;
  writeln(sum / k);
  readln
end.
Это основная идея тока
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачку. [Pr1_Zr4k] Помощь студентам 4 10.10.2009 17:52
помогите решить задачку gorez Паскаль, Turbo Pascal, PascalABC.NET 10 08.04.2008 14:49
Помогите решить эту задачку Magic Blood Microsoft Office Excel 1 16.05.2007 18:17
Помогите решить задачку New БД в Delphi 3 12.12.2006 19:46