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

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.

Comments

тут просто по аналогии но я вообще не шарю

---

Я ниже в ответе допишу

---

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

---

Всё, добавил

---

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

---

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

---

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

---

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

---

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

---

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