Question

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

Answer 1

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 do
if 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 do
if f[i] mod 2 = 0 then
k:=k+1;
else
sumb:sumb+f[i];
writeln('Количество четных: ',k);
writeln('Сумма нечетных: ',sumb);
end.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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