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

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

29.01.2016, 18:56. Просмотров 285. Ответов 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
Ответы с готовыми решениями:

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

Найти максимальный элемент массива, не превосходящий заданного числа 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. Найти наибольший элемент
не пугайтесь..не закрывайте эту теммуу..помогите чем можете(( в особенности...


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

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

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