![]() |
|
|
#1
|
|||
|
|||
|
Здравствуйте. Помогите вот с таким пунктом задачи, пожалуйста
Написать приложение реализующее работу с массивами: 2. указать на каких позициях в матрице находятся элементы, большие введенного с клавы числа. |
|
#2
|
|||
|
|||
|
В цикле бежишь по матрице (2х-мерному массиву) и если элемент больше некоторого введенного числа, то выводишь его, элемента, индексы.
|
|
#3
|
|||
|
|||
|
а можно хоть какой-то пример кода?
|
|
#4
|
|||
|
|||
|
Код:
var
A: array [1..N, 1..M] of Double;
X: Double;
procedure CheckMatrix(C: Double);
var
I, J: Integer;
begin
for I := 1 to N do
for J := 1 to M do
if A[I, J] > C then
Writeln('[' + IntToStr(I) + ', ' + IntToStr(J) + ']');
end;
begin
{ ... Определить матрицу A ... }
Readln(X);
CheckMatrix(X);
end. |