var a: array[1..mm, 1..mm] of integer; i, j, m, s: integer;
begin Write('Введите число строк (столбцов) матрицы: '); Readln(m); Randomize; Writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to m do begin a[i, j] := Random(99) + 1; { числа 1..99 } Write(a[i, j]:3) end; Writeln end; Writeln('*** Главная диагональ ***'); for i := 1 to m do Write(a[i, i]:3); Writeln; Writeln('*** Побочная диагональ ***'); for i := 1 to m do Write(a[i, m - i + 1]:3); Writeln; Write('Сумма четных элементов по периметру равна '); s := 0; for j := 1 to m do if a[1, j] mod 2 = 0 then s := s + a[1, j]; for j := 1 to m do if a[m, j] mod 2 = 0 then s := s + a[m, j]; for i := 2 to m-1 do if a[i, 1] mod 2 = 0 then s := s + a[i, 1]; for i := 2 to m-1 do if a[i, m] mod 2 = 0 then s := s + a[i, m]; Writeln(s) end.
procedure Shell(var a: Mas; n: integer); { сортировка методом Шелла } var i, j, step, t: integer;
begin step := n div 2; while step > 0 do begin for j := n - step downto 1 do begin i := j; while i <= n - step do begin if a[i] > a[i + step] then begin t := a[i]; a[i] := a[i + 1]; a[i + 1] := t end; i := i + step end end; step := step div 2 end end;
var x: Mas; i, n: integer;
begin Randomize; Write('Введите число элементов в массиве (1-100): '); Readln(n); Writeln('Исходный массив'); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4) end; Shell(x, n); Writeln(#13#10, 'Отсортированный массив'); for i := 1 to n do Write(x[i]:4) end.
var
x, y: int64;
begin
readln(x, y);
writeln(x+4*(45-y)+(89-(54-3*x)));
end.