Запросы в ms access 2 а) вы можете редактировать данные в таблице б) вы можете получить одну виртуальную - id1041574320220323 от unna1 23.03.2022 06:34

Question

Информатика: Запросы в ms access 2 а) вы можете редактировать данные в таблице б) вы можете получить одну виртуальную таблицу из всех связанных таблиц вы можете изменить информационную емкость диалогового окна для ввода параметров в) правка - найти выолняем команду г) вы можете просматривать, анализировать и изменять данные в нескольких таблица

unna1 · Accepted Answer

Program exp3;
uses crt;
const
m = 5;
n = 3;
type
matr = array [1 .. m, 1 .. n] of integer;
var
A: matr;
b, i, j, k: integer;
begin
clrscr;
randomize;
for i := 1 to m do
begin
    for j := 1 to n do
    begin
      A[i, j] := random(101);
    end;
end;
k := n div 2;
for j := 1 to k do
begin
    for i := 1 to m do
    begin
      b := A[i, j];
      A[i, j] := A[i, n - j + 1];
      A[i, n - j + 1] := b;
    end;
end;
for i := 1 to m do
begin
    for j := 1 to n do
    begin
      write(A[i,j]: 5) ;
    end;
    writeln;
end;
    readln;
end.

MOGZ ответил