Урок 15 задача 3
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
program project1; var numbArr: array[1..7] of integer; i,max:integer; begin for i:=low(numbArr) to high(numbArr) do begin write('Введите ',i,' число : '); readln(numbArr[i]); end; max:=numbArr[1]; for i:=low(numbArr) to high(numbArr) do begin if numbArr[i]>max then max:=numbArr[i]; end; writeln('Максимальное число в массиве ' max, ' '); readln(); end.
- Log in to post comments
- 836 reads
vedro-compota
Sun, 12/12/2021 - 13:17
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)