составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10 и находит сумму эелементов с чётными значениями и количиство элементов с нечётными значениямиъ

Всегда рад помочь, надеюсь программы запустились, ибо я пишу их "в голове", не проверяя

в первом оно не может найти количество нечётных а во втором сумму нечётных что делать?

Я не углядел условие задачи. Добавь в первую задачу в var переменную k:integer; Дальше вместо sumb:=sumb+f[i]; напиши begin sumb:=sumb+f[i]; k:=k+1; end;

И через writeln выведи k

А во второй задачи я забыл знак "=", в sumb:=sumb+f[i];

var f: array[1..10] of integer; i,suma,sumb:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10)+10; write(f[i],' '); end; suma:=0;sumb:=0;for i:= 1 to 10 doif f[i] mod 2 = 0 then suma:=suma+f[i];else sumb:sumb+f[i];writeln('Сумма четных: ',suma);writeln('Сумма нечетных: ',sumb);end.var f: array[1..8] of integer; i,k,sumb:integer; begin randomize; for i:=1 to 8 do begin f[i]:=random(10)+10; write(f[i],' '); end; k:=0;sumb:=0;for i:= 1 to 8 doif f[i] mod 2 = 0 then k:=k+1;else sumb:sumb+f[i];writeln('Количество четных: ',k);writeln('Сумма нечетных: ',sumb);end.