Задача 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 readln(a[i]); max1:=a[1]; For i:= 2 to 7 do if a[i]>max1 then max1:=a[i]; max2:=a[1]; if max2=max1 then begin max2:=a[2]; for i:=3 to 7 do if a[i]>max2 then max2:=a[i]; end else For i:= 2 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
- 481 reads