Составьте программу, которая формирует массив, содержащий 10 случайных целых чисел, принадлежавших промежутку [0; 7], и преобразует элементы массива по следующему правилу: к чётному числу прибавляет 3, а к нечётное умножает на 4

program program1; vari: integer; a: array [1..10] of integer; beginrandomize; writeln; writeln('массив до преобразования: '); for i: =1 to 10 dobegina[i]: =random(8); write(a[i],', '); end; for i: =1 to 10 doif a[i] mod 2 = 0 thena[i]: =a[i]+3elsea[i]: =a[i]*4; writeln; writeln('массив после преобразования: '); for i: =1 to 10 dowrite(a[i],', '); end.

Program g; uses crt; var count, num, ch: integer; begin    clrscr;     writeln('год високосный? 1 - да, 0 - нет');     readln(ch);     if ch=1 then      begin        writeln('введите номер месяца');       readln(num);         сase num of          1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день.');         4, 6, 9, 11: writeln('в месяце 30 дней.');         2: writeln('в месяце 29 дней');         else writeln('некорректный ввод данных')      end;     end      else if ch=0   then      begin        writeln('введите номер месяца');         readln(num);     сase num of            1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день.');           4, 6, 9, 11: writeln('в месяце 30 дней.');           2: writeln('в месяце 28 дней');         else writeln('некорректный ввод данных')        end;       end    else writeln('некорректный ввод данных'); readln;   end.

Не корректно объяснили, но если правильно вас понял:   program g;   var n, z, m, p: integer;   begin      z: =0;   p: =0;     m: =0;     writeln('введите число n. число 9999 завершает цикл.');     readln(n);     while n< > 9999 do      begin        if n=0 then inc(z);           else if n> 0 then inc(p);           else inc(m);         writeln('введите число');         readln(n);       end;     writeln('было введено ', z, ' нулей.');     writeln('было введено ', p, ' положительных чисел.');     writeln('было введено ', m, ' отрицательных чисел.');       readln;   end.