задача 3 урок 15
Primary tabs
http://fkn.ktu10.com/?q=node/8614
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
type myArr = array[1..7] of integer; var a: myArr; i,max : integer; begin for i:=low(a) to high(a) do begin writeln ('введите элементы массива'); readln (a[i]); end; writeln('максимальный элемент введенного вами массива:'); max:=a[1]; if a[i] > max then max := a[i]; writeln(max); readln(); end.
- Log in to post comments
- 554 reads