kirill031312
28.01.2021 12:51

Brendi kakoy produksiya mojno sozdavat i prodvigat cherez cosoalniye mediya

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
siemens227
12.10.2021 09:43
1) в Access нельзя создать таблицу путем ввода данных
2) Векторный формат изображения - описание элементов изображения (обычно контуров и/или поверхностей) в виде набора формул. Такой формат, в частности, допускает произвольное масштабирование без потери качества.
3) Борьбу с компьютерными вирусами я бы сервисом не называл
4) Выполнимость и понятность - это под большим вопросом. Алгоритм может быть и не выполним конкретным исполнителем  (например, он включает операцию вычисления производной функции, которую данный исполнитель не умеет выполнять). Понятность - ну я не знаю, если я Вам приведу алгоритм работы синтаксического анализатора компилятора языка Паскаль - Вы его поймете?
0,0(0 оценок)
Ответ:
anastysiaparsh
24.01.2023 10:05
Const
  k = 3;
  p = 3;

var
  f: array [1..k, 1..p] of byte;
  mini: array [1..2] of byte := (1, 1);
  maxi: array [1..2] of byte := (1, 1);

procedure Swap(var a, b: integer);
var
  p: integer;
begin
  p := a; 
  a := b; 
  b := p;
end;

begin
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
    begin
      f[i, j] := random(10, 100);
      write(f[i, j]:3);
      if (f[mini[1], mini[2]] > f[i, j]) then
      begin
        mini[1] := i;
        mini[2] := j;
      end;
      if (f[maxi[1], maxi[2]] < f[i, j]) then
      begin
        maxi[1] := i;
        maxi[2] := j;
      end;
    end;
    writeln();
  end;
  writeln();
  
  swap(f[1, p], f[maxi[1], maxi[2]]);
  swap(f[p, 1], f[mini[1], mini[2]]);
  
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
      write(f[i, j]:3);
    writeln();
  end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота