Регистрация
salievtrofim20
08.11.2022 06:09
Информатика
Есть ответ 👍

Информатика, , язык паскаль, заранее !

263
468
Посмотреть ответы 2

Ответы на вопрос:

lara7208
lara7208
4,4(70 оценок)

ответ:

program minnumber

var

  n, a, i, nmin, amin: integer;

begin

  write ('количество чисел: ');

  readln (n);

  nmin : = 1;

  amin : = maxint;

  writeln ('введите ', n, ' чисел: ');

  for i : = 1 to n do begin

    readln (a);

    if a < amin then begin

      amin : = a;

      nmin : = i;

    end;

  end;

  writeln ('вывод: ', amin, ' ', nmin);

  readln;

end.

никнэйм0
никнэйм0
4,8(87 оценок)
Микрофон-запись звуковых данных сканер-представление графической информации в электронном виде монитор-вывод графической информации мышь-преобразование движения в сигнал наушники-вывод звуковой информации процессор-обработка данных принтер-вывод графической информации

Популярно: Информатика