Результат работы программы
Program pr;
Var х: array [1..100] of integer;
i, s: integer;
begin
s: =0;
for i:=l to 100 do begin
readln (x [i]);
if (x[ i ]mod 2=0) and (x[i]>0) then s:=s+1;
end;
writeln (s);
end.

количество положительных элементов массива с четными индексами

сумму четных элементов массива

количество четных положительных элементов массива

среднее арифметическое значений элементов массива с четными индексами

​

nikita112289    2   19.04.2020 19:08    89