Урок 15 задача 4
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
Примеры для проверки:1 2 2 1 1 1 1 Ответ: 2 2 -1 -2 -2 -1 -1 -1 -1 Ответ: -1 -1 -1 -2 -2 5 4 -1 -1 Ответ: 5 4
program project1; var numbArr: array[1..7] of integer; i,max_1,max_2:integer; begin max_1:=0; max_2:=0; for i:=low(numbArr) to high(numbArr) do begin write('Введите ',i,' число : '); readln(numbArr[i]); end; for i:=low(numbArr) to high(numbArr) do begin if (numbArr[i]>max_1) then max_1:=numbArr[i]; end; for i:=low(numbArr) to high(numbArr) do begin if ((numbArr[i]>max_2)and(numbArr[i]<>max_1)) then max_2:=numbArr[i]; end; writeln('максимальные числа в массиве ', max_1, ' ',max_2); readln(); end.
- Log in to post comments
- 2402 reads
vedro-compota
Wed, 12/15/2021 - 18:18
Permalink
max_1:=0;
1)
а что если в массиве все числа отрицательные?
2) стараться решить в один цикл
_____________
матфак вгу и остальная классика =)
alexander263
Sun, 12/19/2021 - 12:54
Permalink
Исправлено
vedro-compota
Sun, 12/19/2021 - 13:11
Permalink
2) стараться решить в один
_____________
матфак вгу и остальная классика =)
alexander263
Wed, 12/22/2021 - 18:14
Permalink
Исправлено
vedro-compota
Wed, 12/22/2021 - 18:21
Permalink
использовать else
использовать else
_____________
матфак вгу и остальная классика =)
alexander263
Wed, 12/22/2021 - 18:29
Permalink
Исправлено
vedro-compota
Wed, 12/22/2021 - 18:34
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)