имеется целочисленный массив состоящий из 15 элементов

Ответ от Александр[гуру]
Напишу только тело, остальное доделаешь (var и задание массива).. . 1) min:=mas [ 1 ]; index:=1; for i:=1 to 15 do begin if min > mas [ i ] then min:= mas [ i ]; index:=i; end; Writeln(\'min=\', min); Writeln(\'index=\', index); readln; 2) sum:=0; pr:=1; for i:=1 to 9 do begin sum:=sum+ mas [ i ]; pr:=pr * mas [ i ]; end; sr:=sum / 9; Writeln(\'среднее ариф\', sr); Writeln(\'произведение\', pr); readln;