Цикл используя
for. .
4. Рассмотрите блок-схему и составьте трассировочную таблицу.
[4]
Начало
х
Условия
Шаг Операция
1
2
A
10
B.
9
Ввод А В
3
A>B
4
X=A
X=B
Вывод С
побыстрее ставлю все бвлы​

Основные характеристики и классификация компьютерных сетей

По территориальной распространенности сети могут быть локальными, глобальными, и региональными.

По скорости передачи информациикомпьютерные сети делятся на низко-, средне- и высокоскоростные:

По типу среды передачи сети разделяются на:

проводные (на коаксиальном кабеле, на витой паре, оптоволоконные);

беспроводные с передачей информации по радиоканалам или в инфракрасном диапазоне.

По организации взаимодействия компьютеров сети делят на одноранговые и с выделеннымсервером (иерархические сети).

По технологии использования сервераразличают сети с архитектурой файл-сервер и сети с архитектурой клиент-сервер.

К основным характеристикам сетей относятся:

Пропускная максимальный объем данных, передаваемых сетью в единицу времени. Пропускная измеряется в Мбит/с.

Время реакции сети - время, затрачиваемое программным обеспечением и устройствами сети на подготовку к передаче информации по данному каналу. Время реакции сети измеряется миллисекундах.

Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.