Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Разделитель между числами - символ по усмотрению исполнителя. в программе бэйсик

Question

Информатика

Аввакум

12 февраля, 18:02

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Разделитель между числами - символ по усмотрению исполнителя. в программе бэйсик

+3

Ответы (1)

Флоренция · Answer 1

uses crt; var a, mn, n, imn : integer; begin clrscr; writeln ('Введите натуральные числа, окончание ввода 0:') ; repeat readln (mn) ; until mn> 0; n : = 1; imn : = 1; repeat repeat readln (a) ; until a> = 0; n : = n + 1; if (a 0) and (aКомментировать