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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.10.2016, 17:43   #1
nikola_orsha
 
Регистрация: 11.10.2016
Сообщений: 3
Сообщение Описать последовательность действий.

program massiv;

var
n, i: integer;
sum, sr: real;
a: array[1..100] of real;

begin
write('Введите n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
readln(a[i]);
sum := sum + a[i];
end;
sr := sum / n;
writeln('srednee=', sr);
end.
nikola_orsha вне форума Ответить с цитированием
Старый 23.10.2016, 19:37   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
вывод сообщения на экран
ввод значении для Н
переменной присвоить 0
в цикле от 1 до Н
 ввести аi
 увеличить переменную сум на значение аИ
конец цикла
переменной ср присвоить значение суммы разделенное на Н
вывести значение среднего на экран
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выпонить над прямоугольной матрицей B размером m x n последовательность действий nerevarreal Помощь студентам 0 06.04.2014 11:21
Дана последовательность целых чисел a1, a2, …an. Образовать новую последовательность, выбросив из исходной, те члены, которые равн Мария74 C++ Builder 2 04.12.2013 23:09
Дана непустая последовательность вещественных чисел, оканчивающаяся числом 1000. Последовательность является неубывающей. fanatloko Паскаль, Turbo Pascal, PascalABC.NET 1 23.06.2013 14:25
Последовательность действий при создании сетевого сообщества Алиса007 Помощь студентам 1 06.03.2011 12:05
Макрос, выполняющий заданную последовательность действий Daywalker Microsoft Office Excel 4 12.01.2011 16:12