Задача 4 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
program u15z4; type myArr=array [1..7] of integer; var a: myArr; i,b: integer; begin for i:=low(a) to high(a) do begin writeln('vvedite element massiva nomer ', i, ':'); readln(a[i]); if (a[i]>b) then b:=a[i]; end; write('max = ',b); readln(); end.
- Log in to post comments
- 241 reads