Question

Помогите пожалуйста уровень B и C, срочно, очень нужно в ПАСКАЛЕ

Answer 1

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.