Задача 4 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
type myArr = array[1..7] of integer; var a: myArr; i,max : integer; c:boolean; begin for i:=low(a) to high(a) do begin writeln('vvedite element massiva nomer ', i, ':'); readln(a[i]); end; max:=a[low(a)]; writeln(); writeln(max); for i:=low(a) to high(a) do if (a[i]>max ) then max:=a[i]; writeln('Maksimalnoe = ',max); readln(); end.
Вывод консоли:
vvedite element massiva nomer 1: 10 vvedite element massiva nomer 2: 23 vvedite element massiva nomer 3: 4 vvedite element massiva nomer 4: 5 vvedite element massiva nomer 5: 67 vvedite element massiva nomer 6: 8 vvedite element massiva nomer 7: 9 Maksimalnoe = 67
- Log in to post comments
- 221 reads