Составте программу паскаль массивы Объявите массив целых чисел из 20 элементов.
· Назначьте отрицательное случайное значение в диапазоне от -10 до -1 каждому элементу четного массива, а положительное случайное значение в диапазоне от 1 до 10 - нечетному.
· Отображать только те элементы массива, значения которых являются четными числами.
· Расчет и отображение суммы и среднего арифметического всех элементов на экране.
· Отобразите те элементы массива, которые больше 4.
лулу36
2
04.02.2021 15:41
0
Другие вопросы по теме Информатика
baxrom2
08.06.2019 19:00
vyzgavalja1956
08.06.2019 19:00
Irkuzmina
08.06.2019 19:00
gurgurov68
25.05.2019 02:30
FfffdZb
25.05.2019 02:30
MrEvgeniy1
25.05.2019 02:30
5454540
25.05.2019 02:30
polinaandreeva9
12.02.2022 00:34
milenaborowik
04.09.2019 18:50
holodovika
20.07.2019 22:00
Популярные вопросы
- Виховання та побут спартанців! напишіть будь-ласка)...
1 - Найти окружавшх барыню людей и разобраться в их положениях в доме....
3 - Как называлась книга про петра 1 в эго эпоху (название из 3х слов) мне нужно...
2 - Вателье сшили 26 платьев, костюмов на 4 больше, чем платьев, а брюк на 10...
1 - Юрист во второй половине дня ушел на бейсбол.билет стоил 20$ ; 3 часа, которые...
3 - Из двух поселков выехали одновременно навстречу друг другу два всадника...
2 - Установите последовательность таксонов озерной лягушки, начиная с наименьшей:...
2 - Log (7х+3)по основанию 0,1 -1 выручите, . заранее ....
2 - На какие вопросы отвечает обстаятельство...
2 - Сколько можно составить трёхзначных чисел из чисел 1,0,5...
1
var a: array[1..20] of integer;
i,s,k:integer;
cr: real;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i]:=random(-10,-1) else
a[i]:=random(1,10);
for i:=1 to 20 do
if a[i] mod 2 = 0 then begin write (a[i],' ');
s:=s+a[i];
k:=k+1; end;
cr:=s/k;
writeln;
writeln('s=',s);
writeln(cr);
for i:=1 to 20 do
if a[i] >4 then write (a[i],' ');
end.