ГОСПАДЕ ПРОШУ ВАС ПОМОГИТЕ ЛЮДИ ДОБРЫЕНа носитель информации можно записывать файлы

var

 a: array [1..10] of integer;  //Массив из 10 целых частей

 max, i: integer;  //max - наибольший элемент

begin

 max:= 0;  Присваиваем max малое значение, которое он может принять

 write('Начальный массив:  ');  Наполняем начальный массив, печатаем его и находим наибольший элемент

 for i:= 1 to 10 do 

 begin

   a[i]:= random(10);

   write(a[i], '  ');

   if (i mod 2 = 0) and (a[i] gt; max) then

     max:= a[i];

 end;

 writeln('Наибольший элемент массива посреди частей с четными индексами: ', max);  //Печатаем начальный элемент

end.

Если все верно, отметь решение как лучшее)

Нажми, чтоб рассказать другим, насколько ответ полезен

Подробнее - на Znanija.com - znanija.com/task/21527565readmore