На программирования: ввести 2 числа, если их произведение отприцательное, умножить на -2, в противном случае умножить на 2

Var a,b,c: integer; begin writeln("введите 2 числа, которые будете умножать: "); readln(a); readln(b); c: =a*b; if (c< 0) then c: =c*(-2); else c: =c*2; writeln("ответ: ",  c); end.

Var s: string;     i,sum: integer; // объявление переменных begin             // начинаем программу writeln('vvedite chislo'); // вывод текста readln(s); // ввод текста sum: =0; // присваиваем переменной sum значение 0 чтобы при вводе текста отличного от 0, программа выводила правильный результат то есть 0. for i: =1 to length(s) do if s[i]='0' then sum: =sum+1; // запускаем счетчик с 1 до length(s) что значит эта команда, она считает сколько в тексте символов. и проверяем с 1 символа до length(s) совпадает ли символ со значением 0, если совпадает то прибавляем 1. writeln(sum); // вывод суммы end. // конец программы

Для начала заводим переменную счетчик для подсчета количества четных и нечетных .

var count,count2:integer;

Далее в теле цикла с массивом, после его вывода добавляем условие if then else

if a[i].IsEven then count+=1 else count2+=1

Т.е. сам цикл будет выглядить так

for i := 1 to n do

 begin

   a[i] := Random(1, 50);

   Write(a[i], ' ');

   if a[i].IsEven then Count += 1 else Count2 += 1;

end;

Вместо a[i].IsEven можно использовать not Odd(a[i]) или уже a[i] mod 2 = 0

Ну а далее уже вывод количеств четных и нечетных

Можно сделать все еще проще.

begin

 var a := ArrRandom(20, 1, 50);

 Println('Четных ', a.Where(z -> z mod 2 = 0).Count, 'Нечетных ', a.Where(z -> Odd(z)).Count);  

end.