Question

Напишите программу с использованием цикла с предисловием while для решения следующей задачи.
Определить в последовательности натуральных чисел среднее арифметическое двухзначных чисел. Ввод чисел в программу осуществляется до тех пор пока не будет введён «0»


В поисковых системах ответы не верные

Answer 1

#1

begin

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

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

end.

#2

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.

Answer 2

я тебе помог

Answer 3

Ну, блин… если я так напишу, мне точно 2 поставят

Answer 4

Это очень не понятно

Answer 5

Ладно, прости… наверное я как то не так поняла.