В массиве чисел найти первое, большее заданного - Turbo Pascal
Формулировка задачи:
И снова здравствуйте! Помогите пожалуйста написать программу:
В массиве чисел B1,B2...Bn найти первое число больше заданного числа.
Решение задачи: «В массиве чисел найти первое, большее заданного»
textual
Листинг программы
const n=10;
var b:array[1..n] of integer;
i,a:integer;
begin
write('a='); readln(a);
for i:=1 to n do
readln(b[i];
writeln('....');
for i:=1 to n do
if b[i]>a then begin write(b[i]); break; end;
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д