Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Niknamer
0 / 0 / 0
Регистрация: 15.12.2014
Сообщений: 32
#1

Найти наибольший элемент массива A[n,m] из числа не превосходящих заданного H - Turbo Pascal

29.01.2016, 18:56. Просмотров 259. Ответов 1
Метки нет (Все метки)

Найти наибольший элемент массива A[n,m] из числа не превосходящих заданного H. Кому не сложно, пожалуйста...

Добавлено через 7 часов 53 минуты
Попытался сделать, но почему-то не компилирует. Правильно вообще сделал?

Добавлено через 28 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var A: array [n..m] of integer;
H,i, x: integer;
begin
writeln ('Введите n и m (размер)');
readln ( ' n и m ' );
writeln ('Введите число H');
readln ( H );
For i:= n to m do begin ('Введите массив');
readln (a[i]);
end;
x:= [n];
For i:= n to m do 
if a[i]=x and a[i]<H then x:= a[i];
Writeln ('Введите число в массиве,которое меньше H-',x);
readln ( );
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2016, 18:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти наибольший элемент массива A[n,m] из числа не превосходящих заданного H (Turbo Pascal):

Найти сумму элементов одномерного массива, не превосходящих заданного числа - Turbo Pascal
Найти сумму элементов одномерного массива не превосходящих заданного числа

Найти максимальный элемент массива, не превосходящий заданного числа N. - Turbo Pascal
Добрый вечер, возникла проблема с решением этой задачки. Дан массив, состоящий из 7 элементов и произвольное число N. Найти...

Матрица: среди элементов каждой строки, отличных от заданного В, найти наибольший элемент и его номер - Pascal
Задана матрица размерности M×N. Среди элементов каждой строки, отличных от заданного В, найти наибольший элемент и его номер. Число В...

Найти наибольший элемент массива - Turbo Pascal
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью датчика случайных чисел. Вывести его на...

Найти наибольший элемент массива - Turbo Pascal
Помогите найти наибольший элемент массива, уменьшить его на 2.Вывести исходный и получившийся массив, а также номер максимального элемента...

Найти наибольший элемент массива - Turbo Pascal
1) Найти наибольший элемент массива В и отнять его от элементов всех столбцов кроме того в котором он находится 2) найти среднее...

1
GreenForest
50 / 42 / 14
Регистрация: 05.12.2013
Сообщений: 275
29.01.2016, 19:54 #2
Цитата Сообщение от Niknamer Посмотреть сообщение
var A: array [n..m] of integer;
n и m должны быть в таком случае указаны в константах. Нельзя использовать переменные для указания диапазона массива.

Добавлено через 15 минут
Цитата Сообщение от Niknamer Посмотреть сообщение
x:= [n];
Это бред. Я даже не понимаю, что вы хотели этим сказать.
Цитата Сообщение от Niknamer Посмотреть сообщение
For i:= n to m do begin ('Введите массив');
readln (a[i]);
end;
Здесь должно быть
Pascal
1
 write ('Введите массив')
Цитата Сообщение от Niknamer Посмотреть сообщение
if a[i]=x and a[i]<H then x:= a[i];
Насколько я знаю, в таких случаях условие необходимо заключать в скобки
Pascal
1
if (a[i]=x) and (a[i]<H) then x:= a[i];
Цитата Сообщение от Niknamer Посмотреть сообщение
Writeln ('Введите число в массиве,которое меньше H-',x);
readln ( );
А тут вроде уже конец, но вы просите что-то ввести...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2016, 19:54
Привет! Вот еще темы с ответами:

Найти наибольший элемент массива - Turbo Pascal
найти наибольший элемент массива А. Если он находится на главной диагонале, то элементы первого ряда заменить его значением помогите...

Даны целые числа n, a1, a2,…, an. Найти наибольший элемент - Pascal
не пугайтесь..не закрывайте эту теммуу..помогите чем можете(( в особенности последние задачиююсессия 12 янвааряяяя((( ЗАДАЧИ 51.Даны...

Задать и найти наибольший элемент массива - Turbo Pascal
Помогите,пожалуйста. Рандомно задать одномерный массив длинной (0...100), найти наибольший элемент массива, который имеет непарный индекс

Найти наибольший и наименьший элемент массива - Turbo Pascal
скиньте код буду очень признателен. Составить программу для вычисления наибольшего и наименьшего элементов массива А.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru