Question

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

Answer 1

var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.

Answer 2

спасибо, но ведь нужно количество элементов с нечетными значениями!!!

Answer 3

Извините, но это не вся задача!!!! я в информате не такой уж и лох! решение не всё!!!

Answer 4

простите, но судя по всему лох! первый цикл for задает массив длиной 10 из случайных чисел от 1 до 10. второй цикл идет по массиву и смотрит если остаток от деления на 2 равен 0(т.е. число четное) то добовляет a[i] в sum, иначе( если число четное) прибавляет 1 к kol. и потом программа выводит sum и kol. если не верите мне, откройте паскаль и посмотрите

Answer 5

спасибо)) сразу не разобралась))