Question

Дан массив из 12 случайных чисел в диапазоне от 1 до 200. Найти количество двузначных чисел

Answer 1

Ответ:

program z1;

uses crt;

var k,i:integer;

begin

k:=0;

for i:=1 to 200 do

if (k:2) then

true

k:=k+1;

end.