Помогите! Очень срочно нужно!

Question

Помогите! Очень срочно нужно! Составить программу нахождения наибольшего элемента в линейном массиве, используя вспомогательные процедурынахождения наибольшего из двух чисел и создания массива случайных чисел. Началосоздание массива Tablz: =a[1]i: =2,n Max (z, a[i],z) вывод Max конец

Answer 1

39

suburb

22 февраля 2023

Например так: program test; uses crt; var arr: array[1… 20] of integer; max,i: integer; function smax (n1,n2: integer): integer; begin if n1>n2 then smax: =n1 else smax: =n2; end; begin clrscr; randomize; for i: =1 to 20 do begin arr[i]: =random (90)+10; write (arr[i],'); end; max: =arr[1]; for i: =1 to 20 do max: =smax (max,arr[i]); writeln; writeln (max); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: