Const N = 6; M = 7; Var A:array[1..N,1..M] of integer; i,j,k,MM,B:integer; Begin Randomize; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn End; WriteLn; WriteLn('Отсортированный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin MM:=j; if i mod 2 = 0 then Begin For k:= j+1 to M do if A[i,MM] > A[i,k] then MM:=k End else For k:= j+1 to M do if A[i,MM] < A[i,k] then MM:=k; B:=A[i,MM]; A[i,MM]:=A[i,j]; A[i,j]:=B; Write(A[i,j]:3,' ') End; WriteLn End End.
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение: