Задача 4 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
var i, max1, max2: integer; a: array [1..7] of integer; begin for i:=low(a) to high(a) do begin write('Введите элемент массива номер ', i, ': '); readln(a[i]); end; for i:=1 to 7 do if a[i] > max1 then max1 := a[i]; for i:=1 to 7 do if (a[i] > max2) and (a[i] <> max1) then max2 := a[i]; write('Два самых больших числа: ', max1, ' ', max2); readln(); end.
- Log in to post comments
- 852 reads