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

program fantscrin;

  const n = 11;

  var a: array [1..n] of integer;

      i,s,p: integer;

begin

  for i: =1 to n do

    a[i]: = random(8)+4;

  for i: =1 to n do

    write(a[i], '   ');

   

  s: =0;

  p: =1;

  for i: =1 to n do

    if (i mod 2 = 0) then p: =p*a[i]

                    else s: =s+a[i];  

   

  writeln('');

  writeln('сумма = ',s);

  writeln('произведение = ',p);

end.

№| Название           | Место расположения | Площадь, км2
1 Каспийское море |самое большое на Земле озеро, бессточное, расположенное на стыке Европы и Азии| 371 000 км²
2 Верхнее | Одно их больших озер Северной Америки   |82 103 км²
3 Виктория | озеро в Восточной Африке, на территории Танзании, Кении и Уганды. Расположено в тектоническом прогибе | 68 800 км²
4 Гурон |озеро в США и Канаде | 59 600 км²
5 Мичиган |пресноводное озеро в США|  58 000 км²
6 Аральское море | бывшее бессточное соленое озеро в средней Азии| 3 300 км²
7 Танганьика | крупное озеро в Центральной Африке| 32 900 км²
8 Байкал |озеро тектонического происхождения в южной части Восточной Сибири| 31 722 км²
9 Большое Медвежье |находится на севере Канады| 31 153 км²
10 Нуаза | Озеро (Нуаза) Малави - самое южное из так называемых Великих африканских озер Восточно-Африканской рифтовой зоны| 6 400км²

Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max