Элементы одномерного массива заполняются по формуле a[i]=2*i. вывести на экран первые 4 элемента массива и подсчитать произведение этих элементов массива с нечетными номерами.

100-98: 4=? под вопросом. сам решишь

1. Max - это системная функция/ Не стоит называть таким именем свою.

2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать     m:=a.max; и ВСЁ.  Но если хотите как на Pascal -  Я исправил.

3. Функция ищет максимальное значение в массиве.

Pascal

var

maxa:integer;

 procedure Getmax(c:integer; var m:integer);

 var

   i:integer;

   a: array [1..100] of integer;

 begin

for i:=1 to c do begin

     a[i]:= random (20);

     write(a[i],' ');

     if m<a[i] then

       m:=a[i];

   end;  

   writeln;

 end;

begin  

 Getmax(100,maxa);

 writeln('Max=', maxa);

end.

ОбъяснеКомпактность и портативность. В одном устройстве могут храниться сотни и тысячи книг.

Настройки изображения. По желанию пользователя можно изменять начертание и размер шрифта, и формат вывода (в одну колонку или в две, портрет или ландшафт).

Дополнительные возможности. В электронных книгах может быть реализован поиск по тексту, переходы по гиперссылкам, отображение временных выделений и примечаний, электронные закладки, словарь. Встроенные программы — синтезаторы речи позволяют озвучивать тексты. Электронная книга позволяет не только читать тексты, но и отображать анимированные картинки, мультимедийные клипы или проигрывать аудиокниги.

Стоимость текста. Многие тексты в электронном виде бесплатны или дешевле, чем в бумажном.

Доступность. При наличии подключения к Интернету тексты в любое время доступны для бесплатного скачивания с соответствующих сайтов (электронных библиотек публикации. Текст проще и дешевле опубликовать в электронном виде, чем в бумажном.

Экологичность. Для чтения текстов в электронной книге не нужна бумага, для производства которой вырубаются леса.