Задача 4 Урок 15
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов.
Найдите из них два самых больших числа и выведите их на экран.
type myArr = array[1..7] of integer; var a: myArr; i, k, l, m: integer; begin m := 0; for i := low(a) to high(a) do begin writeln('Vvedite element massiva nomer ', i); readln(a[i]); end; writeln('Elementi massiva'); for i := low(a) to high(a) do begin write(a[i], ' '); if a[i] > k then k := a[i] end; for i := low(a) to high(a) do //без второго цикла может пропустить пример 87000025 begin if (a[i] > l) and (a[i] < k) then l := a[i] else inc(m); //требуется на случай, если все числа одинаковые, но исключить, когда только несколько чисел совпадают. end; writeln(); writeln('Samoe bolshoe chislo = ', k); if m = 7 then writeln('Vtoroe samoe bolshoe chislo otsutstvuet') else writeln('Vtoroe samoe bolshoe chislo = ', l); readln(); end.
КОНСОЛЬ
Vvedite element massiva nomer 1 15 Vvedite element massiva nomer 2 15 Vvedite element massiva nomer 3 0 Vvedite element massiva nomer 4 -15 Vvedite element massiva nomer 5 26 Vvedite element massiva nomer 6 26 Vvedite element massiva nomer 7 90 Elementi massiva 15 15 0 -15 26 26 90 Samoe bolshoe chislo = 90 Vtoroe samoe bolshoe chislo = 26
- Log in to post comments
- 2599 reads
vedro-compota
Sun, 11/14/2021 - 13:23
Permalink
два числа могут быть
_____________
матфак вгу и остальная классика =)
Vitaliy123
Sun, 11/14/2021 - 14:19
Permalink
Решение с одним прочтением и двумя одинаковыми числами
КОНСОЛЬ
vedro-compota
Sun, 11/21/2021 - 12:06
Permalink
что есть пользователь будет
что есть пользователь будет вводить только отрицательные числа?
+ в условие добавлены примеры для проверки:
_____________
матфак вгу и остальная классика =)
Vitaliy123
Sun, 11/21/2021 - 21:59
Permalink
Это решение проходит указанные проверки
vedro-compota
Sun, 11/28/2021 - 13:06
Permalink
if i = 1 then
-- вынести за цикл
_____________
матфак вгу и остальная классика =)
Vitaliy123
Mon, 11/29/2021 - 20:51
Permalink
Первое присвоение до цикла
vedro-compota
Sun, 12/05/2021 - 13:10
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)