Для домашних заданий, курсовых, существует "Центр Помощи".
Тема перенесена!
Добавлено через 1 минуту и 57 секунд
Данкинг, у тебя ж никакие данные не введены, так не заработает)
Вот полная программа:
С выводом массива:
| Код |
program Project1;
const
M = 5;
N = 5;
var
K: Integer;
I, J: Integer;
A: Array [1..M, 1..N] of Integer;
begin
Randomize;
for I := 1 to M do
begin
for J := 1 to N do
begin
A[I, J] := Random(10);
Write(A[I, J], ' ');
end;
WriteLn;
end;
Write('Enter K: ');
ReadLn(K);
for I := 1 to M do
for J := 1 to N do
if A[I, J] = K then
begin
WriteLn('K in line ', I);
Break;
end;
ReadLn;
end.
|
Или без вывода:
| Код |
program Project1;
const
M = 5;
N = 5;
var
K: Integer;
I, J: Integer;
A: Array [1..M, 1..N] of Integer;
begin
Randomize;
for I := 1 to M do
for J := 1 to N do
A[I, J] := Random(10);
Write('Enter K: ');
ReadLn(K);
for I := 1 to M do
for J := 1 to N do
if A[I, J] = K then
begin
WriteLn('K in line ', I);
Break;
end;
ReadLn;
end.
|
|
