Формат ввода Вводятся строки положительных целых чисел, записанных через пробел.
Формат вывода
Нужно найти строку с наибольшим количеством чисел, кратных семи. Если таких строк несколько, то выбрать ту, что встретилась первой. Вывести из этой строки числа, кратные семи, через запятую и пробел в исходном порядке.
Пример 1
Ввод Вывод
78 46 33 30 41 42 1 49 27 38 86 70 86 83
41 38 71 16 38 21 54 99 50 75
21 48 84 91 72 98 85 87 16 50 3
89 44 56 87 39 29 89 100 83
21, 84, 91, 98
Пример 2
Ввод Вывод
14 23 13 10 59
19 3 35 16 62 95 83 69 34 63
39 60 56 57 28 100 54 73
35, 63
2. Записывать формулу начинают с знака "="
3. Выбираем ячейку с курсора, которую хотим использовать. Или записываем адрес ячейки.
4. Ставим знак арифметического действия
5. Как в пункте 3 выбираем ячейку для выполнения
Есть ещё панель "Формулы". Там можно ставить формулу в ячейку.
1. Переходим в панель "Формулы"
2. Выбираем ячейку с курсора
3. Нажимаем либо "Вставить формулу", либо выбираем формулу для вставки рядом с предложенных
Если нажали кнопку "Вставить функцию" в появившемся окне выбираем категорию и функцию. Затем нажимаем "ОК".
Появиться окно, в котором нужно ввести число1 и число2. Эти числа будут складываться, т.к. мы выбрали функцию "СУММ ()".
Если надо выбрать ячейку нужно нажать соответствующю кнопку и с курсора выбрать ячейку. Можно выбрать как одну, так и несколько ячейк.
//Дан целочисленный массив из 40 элементов. Элементы массива могут
//принимать значения от -10000 до 10000. Написать алгоритм, который
//находит и выводит среднее арифметическое всех отрицательных элементов
//массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один
//такой элемент в массиве есть. Исходные данные объявлены так, как
//показано ниже. Запрещается использовать переменные, не описанные
//ниже, но разрешается не использовать часть из них.
const
N = 40;
var
//a : array[1..N] of integer;
i, s, r, x : integer;
sr: real;
begin
//Для любителей заполнять вручную:
//for i := 1 to 40 do readln(a[i]);
//Заполним массив 40-ка случайными значениями
var a := ArrRandomInteger(N+1, -10000, 10000);
//Гарантировано разместим число, оканчивающееся на 7
a[Random(0,40)] := -10 * Random(0,999) - 7;
//Уберем лишний элемент, созданный автоматически
a[0] := 0;
//Напечатаем массив
a.println;
writeln('----------------');
//Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7
//число, учтём его
foreach i in a do
if (i < 0) and (i mod 10 = -7) then begin
r += i; s += 1; write(i,' ')
end;
//Выведем среднее арифметическое
writeln('Ср.ар: ',r/s)
end.