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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2009, 11:26   #1
Regina
Пользователь
 
Регистрация: 01.10.2009
Сообщений: 10
По умолчанию Нахождение среднего арифметического с помощью Паскаля

Найти среднее арифметическое чисел.
Пользователь сам вводит массив и программа должна посчитать среднее арифметическое крайних его членов.
Regina вне форума Ответить с цитированием
Старый 15.11.2009, 11:26   #2
VilAm
Пользователь
 
Аватар для VilAm
 
Регистрация: 14.11.2009
Сообщений: 56
По умолчанию

Цитата:
крайних его членов.
это каких?
Мы чужды себе, мы, познающие, мы сами чужды себе
VilAm вне форума Ответить с цитированием
Старый 15.11.2009, 11:31   #3
Regina
Пользователь
 
Регистрация: 01.10.2009
Сообщений: 10
По умолчанию

прошу прощения нужно ввести матрицу
Regina вне форума Ответить с цитированием
Старый 15.11.2009, 11:32   #4
VilAm
Пользователь
 
Аватар для VilAm
 
Регистрация: 14.11.2009
Сообщений: 56
По умолчанию

Код:
var i,j:Integer;
     n:Integer;
     sp:Real;
     k:integer;
     a:array[1..100,1..100] of Integer;
begin
  Randomize;
  Writeln('input n');
  Readln(n);
  sp:=0;
  k:=0;
  for i:=1 to n do
    for j:=1 to n do
    a[i,j]:=Random(30)-20; (*для ручного ввода заменить на readln(a[i,j]);*)
    Writeln('****MATRIX****');
    for i:=1 to n do begin
    for j:=1 to n do
    write(a[i,j]:6);
    Writeln;
    end;
    Writeln('**********************');
    for i:=1 to n do
    for j:=1 to n do begin
      sp:=sp+a[i,j];
      k:=k+1;
     end;
     sp:=sp/k;
     Writeln('**average=',sp:6:3);
    Writeln('*Press any key to exit*');
    Readln;
end.
Мы чужды себе, мы, познающие, мы сами чужды себе
VilAm вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск среднего арифметического в массиве Джед Общие вопросы C/C++ 15 12.06.2009 16:32
Програма на Pascal: нахождение минимума с помощью процедуры в 2мерном массиве. Нужна помощь. Lopirion Помощь студентам 2 28.12.2008 21:23
Нахождение среднего арифметического AliVe Паскаль, Turbo Pascal, PascalABC.NET 1 12.04.2007 00:25