Последовательно вводятся количества пассажиров - вопрос №253669 от max4bob 08.02.2020 12:27

Question

Информатика: Последовательно вводятся количества пассажиров которые едут в каждом из n одинаковых вагонов поезда. написать программу которая выдавала бы номера вагонов в которых наибольшее количество свободных мест. ввод коректен. ввод n k - количество вагонов и количество мест в вагоне х1 х2 х3 х4 х5 х6 х7 - разделеные пробелами количества пассажиров в вагонах. вывод разделенные пробелами номера вагонов с наибольшим количеством свободных мест. пример ввод вывод 55 33 44 55 77 32 55 6

max4bob · Answer

PASCAL

for i := 1 to 7 do

mas[i] := read(x);

min := mas[1];

for i := 1 to 7 do

begin

if min > mas[i] then

begin

min := mas[i];

end;

writeln(min);

Массивы и переменные не стал объявлять ибо сами сможете наверника

Сначала заполняем массив, потом минимальное число - певый индекс массива если это число оказывается больше какого-то то мы присваевыем переменной min это число.