Задача 3 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
var i, max: integer; a: array [1..7] of integer; begin for i:=low(a) to high(a) do begin write('Введите элемент массива номер ', i, ': '); readln(a[i]); end; max := a[1]; for i:=1 to 7 do if a[i] > max then max := a[i]; write('Максимальный элемент массива равен ', max); readln(); end.
- Log in to post comments
- 366 reads