![]() |
|
#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. |