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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2015, 20:36   #1
ANN4
Новичок
Джуниор
 
Регистрация: 06.10.2015
Сообщений: 2
По умолчанию Сгенерировать случайным образом массив целых чисел из n элементов.

Сгенерировать случайным образом массив целых чисел из n элементов. n ввести со стандартного ввода. Вывести на экран среднее арифметическое элементов.
ANN4 вне форума Ответить с цитированием
Старый 06.10.2015, 20:51   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Попытки и наработки увидеть можно?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.10.2015, 21:02   #3
ANN4
Новичок
Джуниор
 
Регистрация: 06.10.2015
Сообщений: 2
По умолчанию

Увы, нет.
ANN4 вне форума Ответить с цитированием
Старый 17.10.2015, 07:42   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var i,n,s:integer;
    sr:real;
    p:array of integer;
begin
   Randomize;
   Write('n = ');
   Readln(n);
   SetLength(p,n);
   For i:=0 to n-1 do
   begin
      p[i]:=Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   s:=0;
   For i:=0 to n-1 do
      s:=s+p[i];
   sr:=s/n;
   Writeln(sr:5:5);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 на форуме Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль Абс Дан массив целых чисел (n=15) случайным образом. zhagalchin Помощь студентам 2 23.12.2014 15:04
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-60,60] (Delphi) trender Помощь студентам 4 26.12.2013 13:57
Заполнить массив из 20 элементов случайным образом от -5 до +5. Отсортировать массив по возрастанию. Olechkina Помощь студентам 1 08.12.2013 18:32
Дан одномерный массив из 10 целых чисел заполненный случайным образом. denpanov Помощь студентам 3 31.10.2012 21:42
Дан массив целых чисел из 25 элементов,заполненный случайным образом числами из промежутка [-35,75] Vinam* Паскаль, Turbo Pascal, PascalABC.NET 3 23.12.2011 13:00