Задача 3 урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
program zadacha3; var a: array [1..7] of integer; i, j: integer; begin for i:=low(a) to high(a) do begin writeln('Vvedite element massiva nomer ',i,':'); readln(a[i]); end; j:=a[1]; for i:=low(a) to high(a) do if a[i] > j then j:=a[i]; writeln(); writeln('Naibolshee chislo: ',j); readln(); end.
- Log in to post comments
- 785 reads
vedro-compota
Sun, 12/19/2021 - 13:28
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)