решить задачи в Паскале.
1. Напишите программу, которая в последовательности целых
чисел определяет среднее арифметическое отрицательных,
оканчивающихся на 1, чисел. Программа получает на вход
целые числа, количество которых неизвестно, но
последовательность заканчивается числом 0 (0-признак
окончания и в последовательность не входит).
2. Напишите программу, которая в последовательности
натуральных чисел определяет порядковый номер
максимального четного числа. Программа получает на вход
количество чисел в последовательности, а затем сами числа.
Если в последовательности нет нужных чисел, вывести «не
найдено».

Ответы

semchankov 13.10.2020 02:13

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

begin

var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;

A.Where(p -> (p < 0) and (abs(p) mod 10 = 1)).Average.Println;

end.

begin

var A := ReadArrInteger(ReadInteger());

var max_even := A.Where(p->p mod 2 = 0).Max;

var max_ind := A.IndexOf(max_even);

if max_ind = -1 then print('Нет') else print(max_ind+1);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

uhbujhxbr 02.05.2021 20:41

vabik1983 02.05.2021 20:42

FireGame228 02.05.2021 20:46

Пумба132 13.05.2019 21:18

fur5 13.05.2019 21:18

reegiinaaa 13.05.2019 19:20

1) решите вас y=a+x: 5x 2) {2x-1 если x 1 x-3 если x 1...

sinitsadmitrij 13.05.2019 19:23

Вычислить значение следующих функции в паскале....

tastapva 26.01.2021 01:43

vladysh205 26.01.2021 02:03

Белялова 16.09.2019 16:50