Помогите пожалуйста по информатике, желательно все подробно. ну и правильно конечно)



Помогите пожалуйста по информатике, желательно все подробно. ну и правильно конечно)

[email protected] в категроии Информатика, вопрос открыт 17.05.2017 в 18:24

1) Дан массив из 5 элементов. Найти min и max элементов и их произведение.

1 ответ



Людмила , ответ добавлен 17.05.2017 в 18:38

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.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.