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

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


textual

Код к задаче: «В массиве чисел найти первое, большее заданного - Turbo 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.

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. Заданы три числа, надо найти минимальное число. Составить программу для вычисления периметра 10 прямоугольников.

  1. Добрый вечер не разбираюсь в паскале, но как сделать запрос, чтобы вывелся список цифр от 0001 до 9999, и главное чтобы все цифры имели вид *0001@ *0002@ *0003@ И так далее, в общем чтобы еще и добавлялись знаки * и @ в начале и концы. Спасибо заренее

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

  1. В массиве структур (записей) найти всех студентов, не имеющих двоек, и сформировать из них новый массив. Полученный массив упорядочить по возрастанию среднего балла. Структура (запись) содержит поля: фамилия, количество оценок, массив оценок (не более пяти), средний балл, который вычисляется при вводе данных. Вывести исходный и полученные массивы.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!