Помогите с одномерными массивами! Дан массив целых чисел. а) все отрицательные элементы...

Question

Помогите с одномерными массивами!

Дан массив целых чисел.
а) все отрицательные элементы увеличьте на 10
б) выяснить, верно ли, что средних арифметических элементов больших 20, превышает 50.

Answer 1

Var a:array [1..100] of integer;
i,k, p, n:integer;
begin
p:=0;k:=0;
read (n); {количество элементов массива}
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
if a[i]<0 then a[i]:=a[i]+10; {а}<br>if a[i]>20 then begin p:=p+a[i]; k:=k+1; end; {б}
end;
if p div k > 50 then writeln('yes'); {б}
for i:=1 to n dowrite (a[i], ' ');
end.