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