Дан массив с 50 элементами. Найти максимальный элемент массива. Используйте для ввода элементов массива функцию Random(x).

Ответы:

Маша Зимина

13-01-2014 19:04

Var m : array[1..50] of Integer; i,max : Integer;Begin max:=0; For i:=1 to 50 do Begin m[i]:=Random(100); if m[i]>max then max:=m[i]; end; Writeln(max);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Даша Азаренко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив с 50 элементами. Найти максимальный элемент массива. Используйте для ввода элементов массива функцию Random(x).» от пользователя Даша Азаренко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!