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

@Meteorzzz · Регистрация: 11.12.2013

Author24 — интернет-сервис помощи студентам

И снова здравствуйте!

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

@j7777777 · 11.12.2013, 11:54

Pascal

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.

@Meteorzzz 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 3
		1
	В массиве чисел найти первое, большее заданного 11.12.2013, 10:00. Показов 1010. Ответов 1 Метки нет (Все метки) И снова здравствуйте! Помогите пожалуйста написать программу: В массиве чисел B1,B2...Bn найти первое число больше заданного числа. 0

	11.12.2013, 11:54

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

Решение