Нужно в паскале написать программу с одномерным массивом из десяти элементов, чтоб она находила количество
чётных, нечётных и среднее арифметическое. Это всё в одной программе.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Идаида
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.
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.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
Дрэйви
05.10.2022, 00:55
