|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.10.2016, 17:43 | #1 |
Регистрация: 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. |
23.10.2016, 19:37 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выпонить над прямоугольной матрицей 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 |