Задание 3 Урок 15
Primary tabs
Задание 3 Урок 15
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
type arr = array[1..7] of integer; var first_array : arr; procedure user_array(var f_array: arr); var i, user_value: integer; begin for i := low(f_array) to high(f_array) do begin write('Введите значение №', i, 'и нажмите ENTER: '); readln(user_value); f_array[i] := user_value; end; end; procedure comparison(f_array: arr); var g,max : integer; begin max := f_array[1]; for g := low(f_array) to high(f_array) do if (f_array[g] > max) then max := f_array[g]; writeln('Максимум = ', max); end; begin user_array(first_array); comparison(first_array); readln(); end.
консоль:
Введите значение №1и нажмите ENTER: 1 Введите значение №2и нажмите ENTER: -12 Введите значение №3и нажмите ENTER: 0 Введите значение №4и нажмите ENTER: -56 Введите значение №5и нажмите ENTER: -12 Введите значение №6и нажмите ENTER: 102 Введите значение №7и нажмите ENTER: 36 Максимум = 102
- Log in to post comments
- 1178 reads
vedro-compota
Sun, 12/20/2020 - 16:44
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)