Дано целое число N и набор из N вещественных чисел..... - Pascal
Формулировка задачи:
Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.
Решение задачи: «Дано целое число N и набор из N вещественных чисел.....»
textual
Листинг программы
uses crt;
const max=100;
var a,b:real;
n,i,k:byte;
begin
clrscr;
repeat
write('Размер последовательности n=');
readln(n);
until n in [1..max];
writeln('Введите числа последовательности:');
k:=0;
readln(a);
for i:=2 to n do
begin
readln(b);
if b>=a then
begin
k:=i;
break;
end;
a:=b;
end;
write('Результат=',k);
readln
end.
Объяснение кода листинга программы
- Ввод размера последовательности n.
- Ввод первого числа последовательности a.
- Чтение остальных чисел последовательности b.
- Поиск наибольшего числа в последовательности.
- Вывод результата - номера наибольшего числа в последовательности.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д