Решить : ( делать в условном операторе)1. даны 2 числа а и b, найти разность между большим и меньшим из этих чисел. 2. дано вещественное число а, число а увеличивается в 3 раза, если оно отрицательное, и делится на 2 если положительное. 3. даны 2 числа, вещественные меньшее из них увеличить в 10 раз. 4. дано вещественное число b, число b вез вести в квадрат если оно отрицательное и оставить неизменным если оно положительное.5. дано натуральное число b, возвести число в кую если оно четное, в противном случае оставить неизменным.

1. if a> b then writeln(a-b) else if a0 then a: =a/2 else writeln('число равно 0'); 3. if a> b then b: =b*10 else if a

Код:

using System;using System.Collections;using System.Collections.Generic;namespace HowOldAreYou{    class Program    {        static void Main(string[] args)        {            var A = new List<int> {6, 4, 2, 1, 4, 3};            var B = new List<int> {7, 3, 3, 2, 3, 4};                        Console.Write("A: "); PrintVector(A);            Console.Write("B: "); PrintVector(B);                        A.Sort((a, b) => a > b ? 1 : a < b ? -1 : 0);            B.Sort((a, b) => a < b ? 1 : a > b ? -1 : 0);            Console.Write("New A: "); PrintVector(A);            Console.Write("New B: "); PrintVector(B);        }        static void PrintVector(IEnumerable vector)        {            foreach (var element in vector)            {                Console.Write(element);                Console.Write(" ");            }            Console.WriteLine();        }    }}

Const n=4; m=5; var a: array[1..m, 1..n] of real; b: array[1..m div 2] of real; s: real; i, j: integer; begin //считываем матрицу for i: =1 to m do   for j: =1 to n do     readln(a[i, j]); for i: =1 to m do //проверяем четность индекса строки   if i mod 2 = 0 then     begin     s : = 1;     for j: =1 to n do //проверяем элемент на отсутствие дробной части       if a[i, j] = int(a[i,j]) then         s : = s * a[i, j]; //присваиваем элементу массива b произведение     b[i div 2] : = s;     end; end.