Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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.