a - массив;
sum - сумма элементов массива;
avrg - среднее значение.
Пример алгоритма решения задачи:
Заполняем массив (например, случайными числами).
Переменной sum изначально присваиваем значение 0.
Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.
Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).
Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)
Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.
const N = 10;
var
a: array[1..N] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i:=1 to N do a[i]:=random(50)+1;
sum := 0;
for i:=1 to N do sum := sum + a[i];
avrg := sum/N;
// весь массив
for i:=1 to N do write(a[i]:3);
writeln;
writeln('Среднее арифм.: ',avrg:4:2);
// больше avrg
for i:=1 to N do if a[i]>avrg then write(a[i]:3);
writeln;
end.
Пример выполнения программы:
7 36 21 48 33 46 7 17 19 41
Среднее арифм.: 27.50
36 48 33 46 41
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Тест «Кодирование и обработка текстовой информации» 1. Выберите фразу, написание которой соответствует правилам набора текста на компьютере: а) Во всех трамваях окна изо льда . Белы деревья, крыши, провода Б) Я светлый образ в сердце берегу:у зимней Волги Ярославль в снегу. c) Во всех трамваях окна изо льда. Белы деревья , крыши , провода. а) Я светлый образ в сердце берегу: у зимней Волги Ярославль в снегу. 2. Выбрать действие, относящееся к форматированию текста: а) копирование фрагментов текста Б) исправление опечаток е) проверка орфографии d) изменение размера полей е) перемещение фрагментов текста 3. Для перемещении фрагмента текста из одного места документа в другое необходимо выполнить команду(ы): а) Копировать, Вставить Б) Вырезать c) Вырезать, Вставить а) Сохранить, Вставить е) Вставить 4. Сколько слов (с точки зрения текстового редактора)содержится в следующем тексте, содержащем ряд ошибок: Раз, два, три, четыре, пять. Вышел зайчик по гулять. В друг охотник вы бегает. а) 9 b) 10 с) 11 d) 12 e) 13 5. В процессе редактирования текста изменяется... а) размер шрифта Б) параметры абзаца е) последовательность символов, слов, абзацев а) параметры страницы. 6. В текстовом редакторе при задании параметров страницы устанавливаются... а) гарнитура, размер, начертание Б) отступ, интервал с) поля, ориентация d) стиль, шаблон 7. В текстовом редакторе выполнение операции Копирование становится возможным после: а) установки курсора в определенное положение Б) сохранения файла с) распечатки файла d) выделения фрагмента текста 8. В текстовом редакторе основными параметрами при задании параметров абзаца являются: а) шрифт, размер, начертание Б) отступ, интервал с) поля, ориентация
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4; // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End. // конец