var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.
Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек
С++:
int n;
cin >> n;
int sum = 0;
int* mas = new int[n];//создание массива
for(int i = 0; i < n; i++){//ввод массива
cin >> mas[i];
}
for(int i = 0; i < n; i++){//ввод массива
if(mas[i] > 0){
sum++;
}
}
if(sum != 5){
cout << "NO";
}
else{
cout << "Yes";
}