Две задачи на массивы.

[StudentSAFU]

1.Найти сумму элементов с четными индексами одномерного массива, размер массива произвольный элементы вводятся с клавиатуры.

program summa;
uses...
var
А:array[1..20] of integer;
i,n(кол-во элементов в массиве),sum:integer;
Begin
writeln('Введите кол-в эл-в массива')
readln(n);sum:=0;
for i:=1to n do
begin
readln(A[i]);
sum:=sum+A[i];
end;
End.

как найти сумму элементов с четными индексами, а не всех элементов?

2. Заполнить массив произвольного размера случайным образом и найти max элемент.

не разобрался.

[Вадим Мошев]

как найти сумму элементов с четными индексами, а не всех элементов?

i:=2;
s:=0;
while i <= n do
		begin
		 s:=s + a[i];
		 i:=i+2;		
		end;

[StudentSAFU]

благодарю, а со второй задачей не поможете?

[Вадим Мошев]

for i:=1 to N do
		begin
		  A[i]:=Random(100); {случайные числа от 0 до 99}
		end;
		
max:=a[1];

for i:=2 to N do
		if a[i] > max then
				max:=a[i];

Дорабатывайте сами.