Задание:
Написать программу поиска значения максимального элемента массива
Решение:
Const n=10; Var a: array[1… n] of integer; i,max: integer; Begin randomize; for i: =1 to n do a[i]: =random (201) -100; for i: =1 to n do write (a[i],'); writeln; max: =a[1]; for i: =2 to n do if a[i]>max then max: =a[i]; writeln ('max=',max); End.
Знаете другой ответ?