Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте пожалуйста по информатике, желательно все подробно. ну и правильно конечно)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.
127
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам