1 вариант Напишите программу, которая в последовательности натуральных чисел находит
среднее арифметическое чисели кратных8 или сообщает, что таких чисел нет
(выводит «NO»). Программа получает на вход натуральные числа, количество
введённых чисел неизвестно последовательность чисел заканчивается числом о
(О признак окончания ввода на Входит последовательность). Количество
чисел не превышает 100. Введенные числа не превышают 300. Программа
должна вывести среднее арифметическое чисел, кратных 8, или вывести «NO»,
если таких чисел нет. Начение выводитисокинон до десятых.
Пример работы программы:
Входные данные Выходные данные
На с++
КР
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
Объяснение: