АЧ
Александр Черагин
Заполнить с клавиатуры двумерный массив из n строк и m столбцов.
Если пользователь вводит число, которое уже есть в массиве, вывести соответствующие сообщение и заменить элемент массива на другой
Если пользователь вводит число, которое уже есть в массиве, вывести соответствующие сообщение и заменить элемент массива на другой
uses crt;
const n=3;m=3;
var a:array[1..n,1..m] of integer;
z, y,x,k,x1,k1:integer;
s: string;
begin
clrscr;
for k:=1 to n do
for x:=1 to m do begin
s:='Введите ';
repeat write(s,'a[',k,'.',x,'] '); read(y);
z:=0;
for k1:=1 to n do
for x1:=1 to m do begin
if a[k1,x1]=y then begin inc(z);s:='Повторите ввод '; end
end;
until z=0;
a[k,x]:=y;
end;
// Вывод
for k:=1 to n do begin
for x:=1 to m do begin
write(' ', a[k,x]:3 );
end;
writeln;
end;
end.