Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 0 до 10 и находит максимальный элемент массива среди элементов с чётными индексами  

var   a: array [1..10] of integer;   i, max: integer;   begin   max:= 0;   write('Исходный массив:  ');   for i:= 1 to 10 do   begin     a[i]:= random(10);     write(a[i], '  ');     if (i mod 2 = 0) and (a[i] > max) then       max:= a[i];   end;   writeln;   writeln('Максимальный элемент массива среди элементов с четными индексами: ', max); end. Если что не понятно - спрашивай.