Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Niknamer
0 / 0 / 1
Регистрация: 15.12.2014
Сообщений: 32
#1

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

29.01.2016, 18:56. Просмотров 276. Ответов 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.

http://www.cyberforum.ru/turbo-pascal/thread647098.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2016, 18:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти наибольший элемент массива A[n,m] из числа не превосходящих заданного H (Turbo Pascal):

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

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

Найти наибольший элемент массива
Помогите найти наибольший элемент массива, уменьшить его на 2.Вывести исходный...

Найти наибольший элемент массива
Решить: Создать массив с именем А из 10-ти элементов, задав значения его...

Найти наибольший элемент массива
найти наибольший элемент массива А. Если он находится на главной диагонале, то...

1
GreenForest
50 / 42 / 24
Регистрация: 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
Привет! Вот еще темы с решениями:

Найти наибольший элемент массива
1) Найти наибольший элемент массива В и отнять его от элементов всех столбцов...

Даны целые числа n, a1, a2,…, an. Найти наибольший элемент
не пугайтесь..не закрывайте эту теммуу..помогите чем можете(( в особенности...

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

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


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

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

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