Задача 5 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
type myArr = array [1..7] of integer; var a:myArr; i,max1,max2:integer; begin for i:=low(a) to high(a) do begin writeln('vvedite element massiva nomer ', i, ':'); readln(a[i]); end; max2:=a[2]; max1:=a[1]; for i:=low(a)+2 to high(a) do if a[i]>max2 then begin max1:=max2; max2:=a[i] end else if a[i]>max1 then max1:=a[i]; writeln(max1,' ',max2); readln(); end.
Вывод консоли:
vvedite element massiva nomer 1: 5 vvedite element massiva nomer 2: 6 vvedite element massiva nomer 3: 12 vvedite element massiva nomer 4: 24 vvedite element massiva nomer 5: 2 vvedite element massiva nomer 6: 1 vvedite element massiva nomer 7: 4 12 24
- Log in to post comments
- 336 reads
vedro-compota
Mon, 04/08/2024 - 20:34
Permalink
Задача 5 Урок 15 :
\
надо делать ссылкой на урок
_____________
матфак вгу и остальная классика =)
Eugene
Tue, 04/09/2024 - 13:34
Permalink
Исправил
Исправил