Из списка представленного ниже выберите примеры ключевого поля Верных ответов:2 Имя Фамилия Номер паспорта Номер домашнего телефона(без кода) Полный домашний адрес ИИН
Const n=5; var a:array[1..n,1..n] of integer; i,j:integer; begin writeln('Исходная матрица:'); Randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; for i:=1 to n do for j:=1 to n do if i<>j then a[i,j]:=0; writeln('Измененная матрица:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end.
Program mass; uses crt; var x:array [1..100, 1..100] of integer; i,j,n,m:integer; begin clrscr; write ('Количество строк: '); readln (n); write('Количество столбцов: '); readln (m); for i:=1 to n do for j:=1 to m do begin write('Введите элемент ' ,i,j,' матрицы:'); readln(x[i,j]); end; for i:=1 to N do begin for j:=1 to M do write (' ',x[i,j]:3); writeln; end;
for i:=1 to n do for j:=1 to m do begin if (i <> j) then x[i,j]:=0; end; writeln; for i:=1 to N do begin for j:=1 to M do write (' ',x[i,j]:3); writeln; end; readln; end.
ИИН и Номер паспорта, они самые ключевые!
Объяснение: