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