2) Уровень B.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(201);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 10 do begin
if (a[i] div 100) = 0 then
kol := kol + 1;
end;
writeln();
writeln('Двузначных чисел: ', kol);
end.
3) Уровень C.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(10, 100);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 9 do begin
if (a[i] + a[i+1]) mod 3 = 0 then
kol := kol + 1;
end;
writeln();
writeln('Таких пар : ', kol);
end.
попробуй проверить устройство на вирусы