Линитис 2. Владелец крупного яблоневого сада в течение 18 лет записывал в таблицу количество собранного
116 т.
урожая в тоннах и выяснил, что минимальный урожай составил 50 т, а максимальный
Напишите программу, которая вычислит средний урожай за 18 лет и определит, сколько раз урожай
превысил средний показатель и сколько раз урожай был ниже среднего показателя.
var
i,q:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;
c:array [1..50] of integer;
begin
writeln ('Заполните первый массив');
for i:=1 to n do
read (a[i]) ;
writeln ('Заполните второй массив') ;
for i:=1 to n do
read (b[i]);
for i:=1 to n do begin
if i mod 2<>0
then begin q:=q+1;
c[q]:=a[i];
q:=q+1;
c[q]:=b[i];
end;
end;
for i:=1 to n do
if b[i]>0
then begin
q:=q+1;
c[q]:=b[i];
end;
if q=0
then writeln ('условие не выполняется')
else begin
for i:=1 to q do
write (' ',c[i]);
end
end.
P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.
P.p.s. Программа написана на Pascal ABC.