Регистрация
Аниса2111
18.09.2020 18:00
Информатика
Есть ответ 👍

Нужно в паскале написать программу с одномерным массивом из десяти элементов, чтоб она находила количество чётных, нечётных и среднее арифметическое. это всё в одной программе.

256
343
Посмотреть ответы 2

Ответы на вопрос:

iriska198501
iriska198501
4,7(20 оценок)

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.

Filindenis
Filindenis
4,6(59 оценок)
Где фото

Популярно: Информатика