Регистрация
danilkazaytsev
04.06.2021 05:01
Химия
Есть ответ 👍

Характеристика элемента аргона по фото ниже
много

200
378
Посмотреть ответы 2

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

nifirazifira
nifirazifira
4,5(53 оценок)

program begenjov1997;

const

  n = 40; {количество элементов массива}

  m = 10000; {максимально возможное значение элемента}

var

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

  i,min: integer; b: boolean;

  s: string;

 

begin

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(60) end;

{заполняем массив случайными числами}

  writeln; randomize;

  for i: =1 to n do a[i]: =random(m+1);

{ищем минимальный элемент с семеркой в конце в 8-ичной записи}

  min: =a[1]; b: =false;

  for i: =2 to n do  

    if (a[i] mod 8 = 7) and (a[i]< min) then

      begin

        min: =a[i];

        b: =true;

      end;  

{выводим min}

  writeln;

      if b then writeln('минимальный элемент с семеркой в конце в 8-ичной записи = ',min)  

        else writeln('0 (нет такого элемента)');

end.

Sergobw
Sergobw
4,7(53 оценок)
3) zn+ pb(no3)(no3)2+ pb zn + pb2+ +2no3- zn2+ + 2 no3- + pb zn+pb2++ + pb

Популярно: Химия