Var
a, f, f1, i: integer;
begin
f := 0;
f1 := 0;
write('Введите 10 чисел:');
for i := 1 to 10 do
begin
read(a);
if(a > 10) then f := f + 1;
if(a > 5) then f1 := f1 + 1;
end;
if(f > 4) then write('Караул! Сейчас все взорвется')
else
begin
writeln(f1, ' чисел(о)(а) больше 5');
write(f, ' чисел(о)(а) больше 10');
end;
end.
#include <iostream>
int main(){ int a, max, num; std::cin>>num; while (num) { num--; std::cin>>a; if ((a%5 == 0)&&(a%7 != 0)&&(a > max)) max = a; } std::cout<<a;}
Переливаем так:
1 (3 л.): 0 0 3 3 0 3 0 3 1 1 0 3 0 3 0
2 (8 л.): 0 8 5 0 3 3 6 6 8 0 1 1 4 4 7 <----- PROFIT!