Это цифра в двоичной системе счисления
Массив создается и заполняется рандомными числами до 10
var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;
for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.
3) максимум из введенных 10 чисел, больших 30000 и делящихся на 5
4) если в конце заголовка цикла поставить ';' , то будет выведено следующее:
если последнее, 10 число больше нуля и делится на 5 , то будет выведено это число, иначе 0
5) будет выведено последнее введенное число
6) заменить строку max = 0 на min = 300000 ( или Int.Min ?)
заменить строку if ((a>max)&(a % 5 == 0)) на строку
if ((a<min) & (a % 2) == 0))
заменить строку max=a на min = a
изменить строку Console.Writeln(max) на Console.Writeln(min)
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else
begin
if (a>b) then writeln('max=',a,' min=', b) else
writeln ('max=',b, ' min=', a)
end;
readln;
<span>end.</span>