Регистрация
Elli34
14.01.2022 18:24
Информатика
Есть ответ 👍

Для чего нужны автоматизированные информационные системы в минюсте рф?

110
203
Посмотреть ответы 1

Ответы на вопрос:

Adik20061
Adik20061
4,6(27 оценок)

const

  n = 20;

var

  a, b: array[1..n] of integer;

  i, k: integer;

begin

  randomize;

  for i : = 1 to n do

  begin

    a[i] : = 10 + random(90);

 
  write(a[i]: 3);

  end;

 

  writeln;

  k : = 1;

 

  for i : = 1 to n - 1 do

  begin

    if a[i] < a[n] then

    begin

      b[k] :
= a[i];

      write(b[k]: 3);

      k += 1

    end;

  end;

end.

Популярно: Информатика