Регистрация
Flex0609
26.04.2022 00:19
Информатика
Есть ответ 👍

Pascalabc, алгоритм и программа

128
430
Посмотреть ответы 2

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

zveriok
zveriok
4,4(17 оценок)

ответ:

язык: pascal.

var

    a: array [1..20] of integer;   {объявляем целочисленный массив на 20 элементов}

    i, min, t, m: integer;   {i - счетчик, min - минимум, t, m - временные переменные}

begin  

{рандом 20 чисел в диапазоне [-20; 12]}

  randomize;  

  for i: =1 to 20 do

    a[i]: =random(33)-20;

    min: =a[1];   //присваиваем минимуму первый элемент.

{цикл начинается с 2, чтобы не делать лишнюю итерацию}

  for i: =2 to 20 do  

  begin

{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}

    if min > a[i] then

    begin

    min: =a[i];

    m: =i;

    end;

  end;

{выводим старый массив}

  writeln('старый массив: ');

  for i: =1 to 20 do

    writeln(a[i]);

{меняем местами последний элемент с минимальным}

  t: =a[20];

  a[20]: =min;

  a[m]: = t;

{выводим новый массив}

  writeln('новый массив: ');

  for i: =1 to 20 do

    writeln(a[i]);

end.

Иван55551
Иван55551
4,5(54 оценок)
Var   n,i: integer;   s: string; begin   write('введите натуральное число: '); read(n);   str(n,s);   for i: =2 to length(s) do       if s[i]=s[i-1] then begin           writeln('пара одинаковых цифр-соседей ',s[i]);           exit           end;   writeln('в числе нет цифр, имеющих таких же соседей') end. пример введите натуральное число: 375422453 пара одинаковых цифр-соседей 2

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