Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дано предложение, определить сколько в нем одинаковых соседних букв Дано предложение, определить сколько в нем одинаковых соседних букв https://www.cyberforum.ru/ turbo-pascal/ thread123796.html программу которая меняет местами все элементы, симметрично побочной диагонали Turbo Pascal
Дан двухмерный массив размером n x n. Составить программу которая меняет местами все элементы, симметрично побочной диагонали
Turbo Pascal Если заданные точки могут быть вершинами тупоугольного треугольника, вычислите его площадь Помогите решить задачу! Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами тупоугольного треугольника, вычислите его площадь. Выведите длины сторон в порядке убывания.... https://www.cyberforum.ru/ turbo-pascal/ thread123788.html Turbo Pascal Гласные буквы оставить без изменения, а согласные заменить друг на друга по заданной схеме https://www.cyberforum.ru/ turbo-pascal/ thread123717.html
Помогите пожалуйста решить задачу, очень нужно, заранее спасибо! Написать программу шифрования текста сообщения: с использованием так называемой «тарабарской грамоты», где гласные буквы остаются...
Для заданного значения n сформировать массив X(n) , являющийся последовательностью чисел Фибоначчи. Определить Turbo Pascal
Для заданного значения n сформировать массив X(n) , являющийся последовательностью чисел Фибоначчи. Определить, насколько отличается положение элемента, наиболее близкого к среднему арифметическому...
Turbo Pascal В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные – в конец с сохранением порядка следования https://www.cyberforum.ru/ turbo-pascal/ thread123709.html
В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные – в конец с сохранением порядка следования. Не использовать дополнительный массив.
Turbo Pascal Найти ошибку. Сформировать квадратную матрицу порядка n по заданному образцу. https://www.cyberforum.ru/ turbo-pascal/ thread123695.html
3. Сформировать квадратную матрицу порядка n по заданному образцу: 0 0 0 … 0 0 0 1 0 … 0 0 0 0 2 … 0 0 ……………………. 0 0 0 … 0 n-1 ...
Turbo Pascal Составить программу, проверяющую, можно ли, меняя местами элементы одномерного массива А, получить одномерный массив В
решить в паскале Заданы два одномерных массива А и В размерности N. Составить программу, проверяющую, можно ли, меняя местами элементы одномерного массива А, получить одномерный массив В.
Turbo Pascal Найти количество различных по значению элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread123685.html
решить в паскале Дан одномерный массив Х, состоящий из 20 целых чисел. Составить программу, которая подсчитывает количество различных по значению элементов в нём
Turbo Pascal Дан текст, в котором имеется несколько идущих подряд цифр. получить число, образованное этими цифрами https://www.cyberforum.ru/ turbo-pascal/ thread123661.html
Дан текст, в котором имеется несколько идущих подряд цифр. получить число, образованное этими цифрами
Найти среднее геометрическое элементов массива. Turbo Pascal
Надо решить 2 задачки по паскалю помогите пожалуйста: 1. Дано 2 массива 10целых чисел. Найти сумму кратных 3 и вывести номера отрицательных элементов! 2. Дан массив 10целых чисел. Найти среднее...
Turbo Pascal Дана целочисленная квадратная матрица. Определить: https://www.cyberforum.ru/ turbo-pascal/ thread123633.html
.Дана целочисленная квадратная матрица. Определить: 1)Сумму элементов в тех строках, которые не содержат отрицательных элементов; 2)Максимум среди сумм элементов диагоналей, параллельных главной...
105 / 102 / 89
Регистрация: 18.05.2009
Сообщений: 201
30.04.2010, 11:39 0

Найти номер первого элемента меньше заданного числа а. - Turbo Pascal - Ответ 695873

30.04.2010, 11:39. Показов 1508. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
var
a:array[1..1000] of integer;
i,j,num,n,k,chislo:integer;
begin
  clrscr;
  write('введите колличество элементов ');
  readln(n);
  writeln('заполните массив ');
  for i:=1 to n do
  begin
    write('a[',i,']= ');
    readln(a[i]);
  end;
  writeln('исходный массив: ');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]<a[j] then
    begin
      k:=a[i];
      a[i]:=a[j];
      a[j]:=k;
    end;
  writeln('преобразованный массив: ');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
  textcolor(10);
  write('введите число ');readln(chislo);
  num:=0;
  for i:=1 to n do
  begin
    if a[i]<chislo then
    begin
      writeln('номер первого элемента меньше заданного числа равен ',i);
      num:=1;
      break;
   end;
  end;
  if num=0 then  writeln('такого элемента нет!');
  readln;
end.


Вернуться к обсуждению:
Найти номер первого элемента меньше заданного числа а. Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2010, 11:39
Готовые ответы и решения:

Одномерный массив. Найти номер первого отрицательного элемента, который по модулю меньше максимального числа
Здравствуйте. Очень надеюсь на вашу помощь. Есть задание:Найти номер первого отрицательного...

Массив: Определить порядковый номер первого числа, меньше заданного n.
Дан непустой и упорядоченный по возрастанию массив целых чисел. Определить порядковый номер первого...

Найти номер первого минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.
Задан целочисленный одномерный массив a из n элементов. Найти номер первого минимального элемента...

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем
Помогите плз! Найти номер первого максимального значения среди элементов, меньших a и...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2010, 11:39

Определить порядковый номер первого числа, большего заданного n
дана непустая и упорядоченная по возрастанию последовательно целых чисел, оканчивающаяся числом 10...

Найти номер первого элемента последовательности, меньший введённого с клавиатуры числа
Дано начальное значение a(0)=2 и рекуррентная формула a(i)= 2+a(i-1)^2/2*i*a(i-1). Найти номер...

Найти номер последнего минимального элемента среди элементов, меньших t и лежащих правее первого элемента, равного s
Дан целочисленный вектор A(n). Найти номер последнего минимального элемента среди элементов,...

Найти номер первого элемента
Дан массив, упорядоченный по убыванию. Найти номер первого элемента, меньшего за-данного числа а....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru