Задача 3 урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
Var i, max : integer ; A : array [1..7] of integer; Begin for i:=low(a) to high(a) do readln(a[i]); Max := A[1]; For i := 2 to 7 do if A[i]>Max then Max := A[i]; Writeln(Max) ; Readln ; End.
- Log in to post comments
- 457 reads