Найти сумму, количество и среднее арифметическое чисел последовательности, делящихся на 2 без остатка. в программе -паскаль. используя оператор downto
Dragnil29
1
04.10.2019 23:00
0
Другие вопросы по теме Информатика
natalia27347
26.05.2019 09:50
Santastiff666
17.02.2022 07:39
rusnaktaniusha
17.02.2022 07:49
A8L3E1X
17.02.2022 07:50
tkurchanova
04.04.2021 14:50
Настя3546955
04.04.2021 14:53
Hiitsmi
18.12.2020 17:04
aynuran1
06.05.2019 18:44
bmonolova1980
06.05.2019 18:46
Популярные вопросы
- Надо придумать 2 предложения с обращением и прямой речью 2 предложения...
1 - Назовите первые политические объединения,возникнение на территории...
2 - Составить план по рассказу станционный смотритель !...
2 - Как ученые узнали о существовании музыки в египте...
2 - Как проверить -зс, в слове громозский...
1 - Сколько будет с остатком 28разделить на 30...
1 - Противоборствующие стороны войны за независимость британских...
3 - 1.you can go boating in a river? 2.you can practise speaking...
3 - Роздiлiть на склади , та наголос скрізь плач, і стогін, і ридання...
3 - Какой ядовитый гриб использовали для борьбы с насекомыми?...
2
Var a:array [0..10000] of integer;
b,c,n,i:integer;
begin
b:=0;
c:=0;
read (n);
For i:=n downto 1 do begin
read (a[i]);
If (a[i] mod 2 = 0) then
begin
b:=b+1;
c:=c+a[i];
end;
end;
Writeln ('Sum=',c,' Kol=',b,' SredA=',(c/b));
end.