Паскаль ! 1) Используя процедуру, создайте из четных символов строки st1 строку str2 и из нечетных символов - id1331334520230404 от frazka228 04.04.2023 20:11

Question

Информатика: Паскаль ! 1) Используя процедуру, создайте из четных символов строки st1 строку str2 и из нечетных символов - строку str3. 2) Составить программу, подпрограмма которой выведет на экран отсортированный массив по следующему принципу: сначала отрицательные значения, затем нули, последним положительные значения массива.

frazka228 · Accepted Answer

//Pascal //1) var   A: array[1..5, 1..8] of integer;   i, j: byte;   sumR, sumC: integer; begin   randomize;   writeln( Исходный массив :28);   for i := 1 to 5 do   begin     for j := 1 to 8 do     begin       A[i, j] := random(61)-30;       write(A[i,j]:5);       if i = 3 then sumR := sumR + A[i, j];       if j = 5 then sumC := sumC + A[i, j];     end;   writeln;   end;   writeln( Сумма элементов 5 столбца = , sumC);   writeln( Сумма элементов 3 строки = , sumR); end. //2) var   A: array[1..5,...

MOGZ ответил