1) ввести с клавиатуры массив А из 5 элементов, найти минимальное из них

2) умножить все элементы массива А на 2

3) найти среднее арифметическое всех элементов массива a

var

A:array [1 ... 5] of integer;

i, min, s:integer;

begin

for i: = 1 to 5 do

begin

write ('Введите ', i,' элемент массива: ') ;

readln (A[i]) ;

end;

min:=A[1];

s:=0;

write ('Введенный массив: ') ;

for i: = 1 to 5 do

begin

write (A[i]:4) ;

if A[i]
s:=s+A[i];

A[i]:=A[i]*2;

end;

writeln;

writeln ('Минимальный элемент массива = ', min) ;

write ('Удвоенные значиния элементов массива: ') ;

for i: = 1 to 5 do write (A[i]:4) ;

writeln;

writeln ('Среднее арифметическое элементов массива = ', s/5) ;

end.

Begin

read (n) ;

for i:=1 to n do

readln (a[i]) :

min:=a[1];

for i:=2 to n do begin

if a[i]>max then max:=a[i];

writeln (a[i])

end;

for i:=1 to n do begin

a[i]:=a[i]*2;

write (a[i])

end;

s:=0;

for i:=1 to n do

s:=s+a[i];

f:=s+/n;

writeln (f)

end.