Вывести на экран номер наименьшего положительного числа

@44456 · Регистрация: 02.03.2020

Author24 — интернет-сервис помощи студентам

Вывести на экран номер наименьшего положительного числа
Считать, что все элементы последовательности лежат в диапазоне -100...+100.
Вывести на экран номер наименьшего положительного числа.
Если таких чисел несколько -- вывести наибольший номер.
Если положительных чисел нет -- вывести об этом сообщение ("NO").

@Cyborg Drone · 17.11.2020, 00:27

Pascal

var
  n, m, im, x: integer;
begin
  readln(n);
  m := 101;
  im := 0;
  for n := 1 to n do
    begin
      read(x);
      if (x > 0) and (x <= m) then
        begin
          m := x;
          im := n
        end
    end;
  readln;
  if im > 0 then writeln(im) else writeln('NO');
  readln
end.

@44456 1 / 1 / 0 Регистрация: 02.03.2020 Сообщений: 54
		1
	Вывести на экран номер наименьшего положительного числа 16.11.2020, 22:58. Показов 652. Ответов 1 Метки нет (Все метки) Вывести на экран номер наименьшего положительного числа Считать, что все элементы последовательности лежат в диапазоне -100...+100. Вывести на экран номер наименьшего положительного числа. Если таких чисел несколько -- вывести наибольший номер. Если положительных чисел нет -- вывести об этом сообщение ("NO"). 0

	17.11.2020, 00:27

Опции темы