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

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

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

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.

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.