Информатика Практика / 3

Program praktika3;
Uses CRT;
Const n=5;
m=4;
Var a: Array [1..n,1..m] Of Integer;
i, g, k: Integer;
Begin
Randomize;
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
a[i,g]:=Random(n*m-1+1)+1;
End;
End;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
WriteLn;
Write('Введите значение элемента массива: ');
ReadLn(k);
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to m Do
Begin
If (a[i,g]=k)
Then
Begin
WriteLn('строка ', i);
WriteLn('столбец ', g);
WriteLn;
End;
End;
End;
ReadLn;
End.