Задания на For+Random

Последовательность чисел состоит из 0 и 1.
Посчитать количество 0 и 1

СРОЧНО,ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Спасибо большое,а можете ещё пожалуйста заменить if then и else циклом for do

// ----------- 3 вариант --------------var a: Integer; i, c0, c1: Integer;begin Randomize; c0 := 0; c1 := 0; for i := 1 to 10 do begin a := Random (2); Write (a, ' '); if a = 0 then Inc (c0) else Inc (c1); end; WriteLn; Writeln ('Количество 0 = ', c0); Writeln ('Количество 1 = ', c1);end.

Скажите ещё пожалуйста как можно заменить Inc

c0 := c0 + 1; Inc - это функция увеличения числа на единицу

Спасибо большое

var

 A: array [1..15] of Integer;

 i, c0, c1: Integer;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (2);

   Write (A [i], ' ');

 end;

 c0 := 0;

 c1 := 0;

 for i := Low (A) to High (A) do begin

   if A [i] = 0 then

     Inc (c0)

   else

     Inc (c1);

 end;

 WriteLn;

 Writeln ('Количество 0 = ', c0);

 Writeln ('Количество 1 = ', c1);

end.

// ---------- вариант решения без массивов ----------------

var

 a1, a2, a3, a4, a5: Integer;

 i, c0, c1: Integer;

begin

 Randomize;

 a1 := Random (2);

 a2 := Random (2);

 a3 := Random (2);

 a4 := Random (2);

 a5 := Random (2);

 Write (a1, ' ', a2, ' ', a3, ' ', a4, ' ', a5);

 c0 := 0;

 c1 := 0;

 if a1 = 0 then Inc (c0) else Inc (c1);

 if a2 = 0 then Inc (c0) else Inc (c1);

 if a3 = 0 then Inc (c0) else Inc (c1);

 if a4 = 0 then Inc (c0) else Inc (c1);

 if a5 = 0 then Inc (c0) else Inc (c1);

 WriteLn;

 Writeln ('Количество 0 = ', c0);

 Writeln ('Количество 1 = ', c1);

end.