Дан массив целых чисел, состоящий из N элементов. Определить среднее арифметическое положительных элементов
164
456
Ответы на вопрос:
program prog;
var a,b:integer;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
while a <= b do
begin
write(sqr(a), ' ');
a:=a+1
end
end.
Популярно: Информатика
-
SuperDusia24.03.2022 03:28
-
Вика200212324.01.2021 09:01
-
eldiraelf21.05.2021 23:02
-
dsanavskiy7713.11.2021 06:13
-
hamsterizumkin09.02.2020 17:24
-
lenaburlacu26.08.2020 21:28
-
Патригг11.06.2021 20:57
-
nastyarudckina20.12.2022 01:26
-
Lizak1129.07.2022 02:36
-
bozhkosofia17.07.2022 03:38