Даны действительные числа a и b. если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. в противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат. нужно написать блок-схему и программу в pascal, оператор if.

//Блок-схема в вложении
//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b:real;
begin
read(a,b);
if a<>b then
 if a>b then
   begin
    a:=a*5;
    b:=b-5;
   end
   else
   begin
    b:=b*5;
    a:=a-5;
   end
 else
if a<0 then
 begin
  a:=a*a;
  b:=b*b;
 end;
writeln(a);
writeln(b);
end.

Пример ввода:
3
4
Пример вывода:
-2
20

Какая-либо часть теста.

Перейти в поле "Что вы хотите сделать?"

ALT+Q

Открыть

CTRL+O

Сохранить

CTRL+S

Закрыть

CTRL+W

Вырезать

CTRL+X

Копировать

CTRL+C

Вставка

CTRL+V

Выбрать все

CTRL+A

Полужирный

CTRL+B

Курсив

CTRL+I

Подчеркнутый

CTRL+U

Уменьшить размера шрифта на один пункт

CTRL+[

Увеличить размера шрифта на один пункт

CTRL+]

Выровнять текст по центру

CTRL+E

Выровнять текст по левому краю

CTRL+L

Выровнять текст по правому краю

CTRL+R

Отмена

ESC

Отменить операцию

CTRL+Z

Повторить операцию

CTRL+Y

Редактирование предназначено для устранения ошибок, перемещения символов, слов, строк, фрагментов и внесение других изменений в содержимое документа. Редактирование документа осуществляется как в процессе ввода текста, так и после его ввода. Как правило, редактирование текста выполняется перед форматированием и применением стилей.

нумерация элементов, а соответственно и строк в массиве начинается с 0

программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.

так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100

var

   n, k : integer;

   a : real;

   var d : array[,] of real;

begin

   write('введите размер матрицы n=');

   readln(n);

   d := new real[n,n];

   for var i := 0 to n-1 do begin

       for var j := 0 to n-1 do d[i,j] := random(101);

   end;

   write('введите номер строки k=');

   readln(k);

   a := d[k,k];

   for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;

end.