Горислав
4 год назад
Пожалуйста посчитайте пожалуйста по информатике, желательно все подробно. ну и правильно конечно)1) Дан массив из 5 элементов. Найтиmin и max элементов и их произведение.
ОТВЕТЫ
Ясмина
Oct 24, 2020
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.
var a:=ArrRandom(5,-20,20);
write( 'Массив: ');
a.Println;
write( 'Максимум: ');
writeln(a.Max);
write( 'Минимум: ');
writeln(a.Min);
write( 'Произведение: ');
writeln(a.Max*a.Min);
end.
127
Смежные вопросы: