Необходимо в паскале написать программку с одномерным массивом из 10 частей,
Необходимо в паскале написать программу с одномерным массивом из 10 частей, чтобы она находила количество чётных, нечётных и среднее арифметическое. Это всё в одной программке.
Задать свой вопросvar a:array [1..10] of integer;
i,k1,k2,s1,s2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(100);
writeln(a);
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then
begin
k1:=k1+1;
s1:=s1+a[i]
end
else
begin
k2:=k2+1;
s2:=s2+a[i]
end
end;
writeln('Количество чётных элементов: ',k1);
writeln('Количество не чётных элементов: ',k2);
writeln('Cреднее арифметическое чётных частей: ',s1/k1);
writeln('Cреднее арифметическое не чётных элементов: ',s2/k2);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.