Дано описание массива: vara:array[1..n]ofinteger; Выбери, какие элементы массива подходят. 1)−7−22 2)среда четверг суббота 3)−4.51.5

1.объединяет компьютеры, установленные в одном помещении или в одном здании.

2.это периферийное устройство компьютера, непосредственно взаимодействующее со средой передачи данных, которая прямо или через другое коммуникационное оборудование связывает его с другими компьютерами. ... Получение доступа к среде передачи данных.

3.Зависит только от сети.

4.Глобальные сети – обеспечивают соединения более 1000 км. Они объединяют области и даже страны. Самой известной такой сетью, разумеется, является интернет. Региональные сети – протяженность которых составляет от 10 до 100 км. Региональной сетью может быть как город, так и целый район.

5.проводные линии связи без изолирующих и экранирующих оплеток;

кабельные, где для передачи сигналов используются такие линии связи как кабели "витая пара", коаксиальные кабели или оптоволоконные кабели;

беспроводные (радиоканалы наземной и спутниковой связи), использующие для передачи сигналов электромагнитные волны, которые распространяются по эфиру.

Объяснение:

Почему бы не использовать условия if для выбора нужного цикла по введённой букве?

Program ABC;
Uses CRT;
var
  a, b, x, y, w, z: Real;
  C, D, E, Q: integer;
  action: char;
begin
  action := 'x';
  while not (action = 'Q') do
  begin
    writeln ('la-la-la');
    writeln ('Если хотите вычислить сумму, то нажмите С, произведение- D, операцию деления -E ');
    readln(action);
    ClrScr;
    if action = 'C' then
    begin
      readln(a, b);
      writeln (a+b);
      readln(action);
      ClrScr;
    end;
    if action = 'D' then
    begin
      readln(x, y);
      writeln (x*y);
      readln(action);
      ClrScr;
    end;
    if action = 'E' then
    begin
      readln(w, z);
      writeln (w/z);
      readln(action);
      ClrScr;
    end;
    if not ( (action = 'C') or (action = 'D') or (action = 'E') or (action = 'Q') ) then
    begin
      writeln('Ошибка, введите C, D, E или Q');
      readln(action);
      ClrScr;
    end;
  end;
end.