25qwerty88174
program Programma; var i, count, n: Integer; arr: Array of Integer; begin count:=0; read(n); SetLength(arr, n); for i:= 0 to n-1 do read(arr[i]); for i:= 0 to n-1 do if (arr[i]>100) and ((arr[i] mod 4) <> 0) then count +=1; writeln(count); end.
Answers & Comments
count=0 # счетчик
n=int(input())
arr = map(int, input().split()) # числа
for i in arr:
if i>100 and i%4!=0: # условие
count+=1
print(count) # вывод счетчика
var i, count, n: Integer; arr: Array of Integer;
begin
count:=0;
read(n);
SetLength(arr, n);
for i:= 0 to n-1 do
read(arr[i]);
for i:= 0 to n-1 do
if (arr[i]>100) and ((arr[i] mod 4) <> 0) then
count +=1;
writeln(count);
end.