Найдите среднее арифметическое отрицательных чисел и определите количество чисел, по величине больших А и стоящих на четных местах.
Решение
Pascal
Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const
n = 15; {массив из 15 элементов, можно менять}
var
a : array [1..n] of integer;
i, k, ko, _a : integer;
s : real;
begin
s := 0;
k := 0;
ko := 0;
{заполняем и выводим массив, считаем сумму элементов}
writeln(массив:);
randomize;
write(введите A: );
readln(_a);
for i := 1 to n do
begin
a[i] := random(100) - 50; {создаем i-ый элемент...}
write(a[i], ); {...выводим его...}
{если отрицательный суммируем, считаем кол-во}
if a[i] lt; 0 then
begin
s := s + a[i];
inc(ko)
end;
{если gt; A и на четном месте количество +1}
if (a[i] gt; _a) and (i mod 2 = 0) then inc(k)
end;
writeln; {строку перевели}
writeln(среднее арифметическое отрицательных: , (s/ko):0:6);
writeln(кол-во больших A на нечетных местах: , k)
end.
Другие вопросы в разделе - Другие предметы
СРОЧНО ПОМОГИТЕ ПИСАТЬ СОЧИНЕНИЕ
ПО РУССКОМУ ЯЗЫКУ
ПРО ЗОЛОТАЯ ОСЕНЬ ...
2018-09-23 00:00:00
Составить предложения ( разные) со словами ПРЕОБРАЗИТЬ и ИСПРАВИТЬ ...
2018-09-23 00:00:00
Закончить текст it was Friday 13 January. Mr.boyson had ...
2018-09-23 00:00:00
Ребята помогите! Кто может дать ответ,мне нужно не большой ...
2018-09-23 00:00:00