Регистрация
ванька68
13.07.2021 04:26
Информатика
Есть ответ 👍

Произведение чисел, кратных 2 инт-ла(возможно инт-па. я не знаю что это обозначает) от 20 до 30 !

268
369
Посмотреть ответы 1

Ответы на вопрос:

мага398
мага398
4,4(8 оценок)
Var a: array [1..100] of real;     n, i, kol: integer; begin     readln(n);     for i : = 1 to n do         read(a[i]);     kol : = 0;     for i : = 1 to n do begin         if (a[i] > 0)and(i mod 2 = 0)         then kol : = kol + 1;         if a[i] < 0         then a[i] : =0;     end;     writeln(kol); end.

Популярно: Информатика