Составить программу, которая заполняет массив а [1..11] случайными целыми числами в диапазоне от 4 до 18,находит сумму нечётных элементов и находит произведение элементов с четными индексами.
№| Название | Место расположения | Площадь, км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
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.