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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.06.2017, 12:30   #1
Ruzben
Новичок
Джуниор
 
Регистрация: 26.06.2017
Сообщений: 1
По умолчанию Дан массив из 10 целых чисел (сформирован случайным образом ). Найти сумму,произведение и среднее арифметическое элементов массива.

Очень нужна помощь , вот мои наработки (новичёк):
program massiv;
const
n=10;
var
mas:array[1..10] of integer;
i,s,p :integer;
a :real;
begin
for i:=1 to 10 do
mas[i]:=random(100);
writeln(mas[i]);
begin
s:=s+mas[i];
p:=p*mas[i];
end;
a:=s/n;
writeln('Сумма ',s);
writeln('Произведение ',p);
writeln('Среднее арифметическое ',a:5:1);
end.
Ruzben вне форума Ответить с цитированием
Старый 26.06.2017, 12:59   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
program massiv;
const
n=10;
var
	mas:array[1..10] of integer;
	i,s,p :integer;
	a :real;
begin
s:=0;p:=1;
for i:=1 to 10 do
  begin
	mas[i]:=random(100);
        writeln(mas[i]);
	s:=s+mas[i];
	p:=p*mas[i];
end;
a:=s/n;
writeln('Сумма ',s);
writeln('Произведение ',p);
writeln('Среднее арифметическое ',a:5:1);
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 26.06.2017, 13:01   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const
   n=10;
var
   mas:array[1..n] of integer;
   i,s,p :integer;
   a :real;
begin
   Randomize;
   s:=0;
   p:=1;
   for i:=1 to n do
   begin
      mas[i]:=random(100);
      writeln(mas[i]);
      s:=s+mas[i];
      p:=p*mas[i];
   end;
   a:=s/n;
   writeln('Сумма ',s);
   writeln('Произведение ',p);
   writeln('Среднее арифметическое ',a:5:1);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


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