Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит сумму элементов массива. перед вводом каждого элемента должна появляться подсказка с номером. после ввода каждого числа нажмите enter a[1]= 12 a[2]= 0 a[3]= 3 a[4]= -1 a[5]= 0 сумма элементов массива = 14

type
 Massiv= array[1..6] of integer;

var i,x,sum:integer;

for i=1 to 5 do begin
writeLn("ChisloMassiva-"i)  -вывод подсказки с номером присваиваемого элемента
ReadLn (x);
Massiv[i]:=x;
Sum:=sum+x;
end;
writeLn("Summa= "sum)

Выбрать требуемую толщину линий и кривых.Окно Палитра отображает текущий основной цвет и цвет фона. Чтобы рисовать выбранным основным цветом, протащите указатель. Чтобы рисовать выбранным цветом фона, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению. Чтобы изменить текущий основной цвет, щелкните любой из доступных цветов. Чтобы изменить цвет фона, щелкните правой кнопкой мыши любой из доступных цветов. Чтобы создать новый цвет, щелкните правой кнопкой мыши любой из цветов и нажмите кнопку Определить цвет. Инструмент Криваяпозволяет проводить сглаженную кривую линию. Выберите инструмент Кривая, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Когда линия проведена, щелкните область изображения, где требуется разместить изгиб, и протащите указатель для придания дуге нужного изгиба.Инструмент Линия позволяет проводить прямую линию. Выберите инструмент Линия, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Чтобы провести линию фонового цвета, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению.

Программа:
const     n = 100;
type    mas = array[1..n] of byte;
var   input: text;   
output: text;   
a: mas;   
count : byte;   
i: byte;   
sum_1, sum_2 : integer;   
n_1, n_2 :byte;   
avrg_1, avrg_2 : real;
begin     
sum_1 := 0;     
sum_2 := 0;     
n_1 := 0;     
n_2 := 0;
assign(input,'in.txt');     
assign(output,'out.txt');     
reset(input);     
rewrite(output);
write('N : ');     
readln(count);         
for i:=1 to count do     
begin         
readln(input,a[i]);         
if i mod 2 = 1 then         
begin           
sum_1 := sum_1 + a[i];           
n_1 := n_1 + 1;         
end         
else
begin           
sum_2 := sum_2 + a[i];           
n_2 := n_2 + 1;         
end     
end;
avrg_1 := sum_1 / n_1;     
avrg_2 := sum_2 / n_2;
writeln(output,avrg_1);     
writeln(output,avrg_2);
close(input);     
close(output);
end.