№1 составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение массива с четными значениями. №2 составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 такое же как и №2, только массива с четными значениями.
MaryVasili
1
17.03.2019 23:50
1
Другие вопросы по теме Информатика
hhd734hd
19.06.2019 22:10
lizachumakova2
19.06.2019 22:10
natalie1m222
04.08.2019 06:50
eugenetroyan
04.08.2019 06:50
ВладаГоликова
04.08.2019 06:50
Katrin8745
04.08.2019 06:50
ворона1111
01.03.2021 11:06
Аннапомогите
01.03.2021 11:04
Популярные вопросы
- На рисунку подано графік залежності проєкції швидкості тіла...
2 - Скільки сполучників ужито в реченні (розділові знаки пропущено)...
3 - Що включає в себе техніка пересувань? 5. Назвіть основний іб...
2 - В населеному пункті, де проживає 20.000 жителів, за рік народилось...
2 - Период постепенного создания системы делопроизводства центральных...
2 - Выясни, ион какого металла используется в аккумуляторах мобильных...
1 - До якого різновиду літератури відноситься твір Запах думок?...
3 - Расставь кадры диафильма в логической последовательности. спочно...
2 - 2x-5y=-75x-y=9 іть додавання ...
1 - А.Найди число, которое на 35% меньше 120дмМой ответ...
1
var a:array[1..10]of integer;
n1,n2,s,i:integer;
begin
n1:=1;
n2:=1;
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do begin
if a[i] mod 2=0 then n1:=n1*a[i] else n2:=n2*a[i];
s:=s+a[i];
end;
writeln(n1,' ',n2,' ',s/10);
end.
Объеденил все 3 программы: вначале выводит произведение четных, потом нечетных, потом среднее арифм.