Вывести на экран номера всех элементов, не совпадающих с максимальным - Pascal ABC
Формулировка задачи:
Вывести на экран номера всех элементов, не совпадающих с максимальным нужно использовать 2 процедуры
Решение задачи: «Вывести на экран номера всех элементов, не совпадающих с максимальным»
textual
Листинг программы
{Вывести на экран номера всех элементов, не совпадающих с максимальным нужно использовать 2 процедуры } const n = 10; type vector = array [1..n] of real; procedure CreateVector(var x: vector); var i: integer; begin for i := 1 to n do begin x[i] := random * n; write(x[i]:8:2); end; end; procedure FindMax(x: vector; var max: real); var i: integer; begin max := x[1]; for i := 2 to n do if x[i] > max then max := x[i]; end; var a: vector; max: real; i: integer; begin CreateVector(a); FindMax(a, max); writeln; writeln('Max = ', max:8:2); for i := 1 to n do if a[i] <> max then write(i:8) end.
Объяснение кода листинга программы
Данный код написан на языке Pascal ABC и выполняет следующие действия:
- Создает вектор
a
размером 10 и заполняет его случайными числами от 0 до 9. - Находит максимальное значение в векторе
a
. - Выводит на экран номер элемента в векторе
a
, который не совпадает с максимальным значением. Пример вывода: Максимальное значение: 7 Номера элементов, не совпадающих с максимальным: 1, 2, 3, 4, 5, 6, 8, 9, 10