Урок 15 Задача 4
Primary tabs
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
var a, i:integer; m: array [1..7] of integer; begin for i:=low(m) to high(m) do // обходим массив через цикл для инициализации begin write('Введите число: '); readln (m[i]); end; for i:=low(m) to high(m)-1 do // цикл для сравнения и перестановки каждых двух соседних чисел. в конце цикла наибольшее будет в последнем элементе if (m[i] > m [i+1]) then // если число слева больше, чем число справа begin a:= m[i+1]; // записываем число справа (меньшее) в переменную m[i+1]:= m[i]; // числу справа присваиваем значение числа слева (большее значение) m[i]:= a; // числу слева присваиваем меньшее значение (то, что раньше было числом слева) end; // в итоге два числа меняются местами, слева - меньшее, справа - большее write(m[7]); // выводим последний элемент массива readln (); end.
Вывод в консоли:
Введите число: 7 Введите число: 43 Введите число: 5 Введите число: 22 Введите число: 5 Введите число: 6 Введите число: 33 43
- Log in to post comments
- 191 reads