Ребята, помогите пожалуйста с задачей Pascal последовательности! Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. Остановить обработку при вводе заказанного количества...
Ребята, помогите пожалуйста с задачей Pascal последовательности!
Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. Остановить обработку при вводе заказанного количества чисел. Тип обработки данных - вещественный.
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
var a,b:integer;
i,n,x:integer;
begin
Writeln ('Введите к-во');
readln (n);
x:=0;
for i:=1 to n do
begin
Writeln ('Введите число:');
readln (a);
if a>=0 then
begin
if x=0 then b:=a;
if (x>0) and (a
Не нашли ответ?
Похожие вопросы