Программа на Паскале прилагается.
Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
В левой строке находится команда
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8