По информатике, желательно все подробно. ну и правильно конечно) 1) дан массив из 5 элементов. найти min и max элементов и их произведение.

Begin 
var a:=ArrRandom(5,-20,20); 
write( 'Массив: '); 
a.Println; 
write( 'Максимум: '); 
writeln(a.Max); 
write( 'Минимум: '); 
writeln(a.Min); 
write( 'Произведение: '); 
writeln(a.Max*a.Min);
end.

Программа на скрине! Надеюсь