Задача 4 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
program U15Z3; var a: array[1..7] of integer; i,max1,max2: integer; begin writeln('vvedite 7 elementov massiva'); for i:=1 to 7 do readln(a[i]); max1:= a[1]; max2:= a[2]; if (max1<max2) then begin max1:=a[2]; max2:=a[1]; end; for i:=3 to 7 do begin if (a[i]>max2) then if (a[i]>max1) then begin max2:=max1; max1:=a[i]; end else max2:=a[i]; end; writeln('maximalnie znacheniya: ', max1, ', ',max2); readln(); end.
- Log in to post comments
- 535 reads