В массиве чисел найти первое, большее заданного - Turbo Pascal

Формулировка задачи:

И снова здравствуйте! Помогите пожалуйста написать программу: В массиве чисел B1,B2...Bn найти первое число больше заданного числа.

Код к задаче: «В массиве чисел найти первое, большее заданного - Turbo Pascal»

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.

11   голосов, оценка 4.455 из 5


СОХРАНИТЬ ССЫЛКУ