1.Дано целое число(n) .Если оно является отрицательным(n<0) то прибавить к нему 2, в противном случае вычесть из него 1.Вывести полученное число2.Даны катет (a1) и катет (а2) одного треугольника и катет(а1) и катет (а2) другого.Определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади.

по информатике, Реализовать программу следующего задания не менее чем двумя

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

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

вариантами разных циклов (например, с заранее заданным

количеством повторений, с предусловиями, с постусловиями, с

меткой и разветвлением).

В массиве из 15 элементов (ввод переменных – на ваше усмотрение)

подсчитать количество положительных (четных) и сумму

отрицательных элементов.

Объяснение:

var

 A: array [1..3, 1..5] of Integer;

 i, j: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := 1 to 3 do begin   // заполнение массива случайными значениями и вывод для просмотра

   for j := 1 to 5 do begin

     A [i, j] := Random (22) - 11;

     Write (A [i, j], ' ');

   end;

   Writeln;

 end;

 for i := 1 to 3 do begin   // замена элементов с четной суммой индексов на 555

   for j := 1 to 5 do begin

     if (i + j) mod 2 = 0 then

       A [i, j] := 555;

   end;

 end;

 WriteLn;

 WriteLn ('Результат: ');   // вывод результата

 for i := 1 to 3 do begin

   for j := 1 to 5 do begin

     Write (A [i, j], ' ');

   end;

   Writeln;

 end;

end.