Первинний ключ використовується для зв'язування таблиці з зовнішніми ключами в інших таблицях. Зовнішній (вторинний) ключ — це одне або кілька полів (стовпців) у таблиці, що містять посилання на поле або поля первинного ключа в іншій таблиці.
begin Write('Количество строк массива: '); ReadLn(n); Write('Количество столбцов массива: '); ReadLn(m); for i := 1 To n Do begin for j := 1 To m Do begin Write('Введите элементы массива A[', i, ',', j, ']='); ReadLn(A[i, j]); end; end;
WriteLn('Итоговый массив:'); for i := 1 to n do begin for j := 1 to m do begin A[1, j] := 111; A[i, 2] := 222; Write(' A[', i, ',', j, ']=', A[i, j], ';') end; WriteLn; end; end.
Задание можно озвучить так: Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.
Var ar:array[1..2*n] of integer; j,a,k,i,t:integer; begin write('A:'); readln(a); writeln('Array:'); for i:=1 to n do readln(ar[i]); j:=1; k:=n; while j<>k do begin if ((ar[j]>=0) and (ar[j+1]>=0)) or ((ar[j]<=0) and (ar[j+1]<=0)) then begin t:=ar[k]; for i:=k-1 downto j do ar[i+1]:=ar[i]; ar[j+1]:=a; inc(k); j:=j+2; ar[k]:=t; end else inc(j); end; writeln('Final array:'); for i:=1 to k do write(ar[i]:4); end.
Первинний ключ використовується для зв'язування таблиці з зовнішніми ключами в інших таблицях. Зовнішній (вторинний) ключ — це одне або кілька полів (стовпців) у таблиці, що містять посилання на поле або поля первинного ключа в іншій таблиці.