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