Вариант 18. в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. количество элементов - id858385720230201 от GT3 01.02.2023 23:22

Question

Информатика: Вариант 18. в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. количество элементов массива, меньших c. 2. сумму целых частей элементов массива, расположенных после последнего отрицательного элемента. 3. преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающиеся от максимального не более чем на 20%, а потом – все остальные.

GT3 · Accepted Answer

Const n = 5;
var
a: array [1..n] of integer;
i,l,m,k: integer;
begin
for i := 1 to n do read(a[i]);
l := 1;
while l < n do
    begin
    while (a[l] mod 2 = 0) and (l < n) do l := l + 1;
    if l < n then
      begin
      k := l;
      m := a[l];
      for i := l+1 to n do
        if a[i] mod 2 <> 0 then
        if a[i] > m then
          begin
          m := a[i];
          k := i
          end;
      a[k] := a[l];
      a[l] := m;
      l := l + 1
      end;
    end;
for i := 1 to n do write(a[i],' ')
end.

MOGZ ответил