Ввести массив из 30 случайных чисел промежутка [50..99], подсчитать число элементов, состоящих из 2-ух одинаковых чисел. , .

Program n1; uses crt; var  a: array[1..30] of integer;     k,m,i,j,n: integer; begin      for i: =1 to 30 do     begin        a[i]: =random(50)+50;         write(a[i],' ');     end;     writeln;   writeln('');             k: =0; n: =1; for i: =1 to 30 do begin     n: =0;     m: =a[i];     for j: =1 to 30 do begin       if (m=a[j]) and (i< > j) and (n< 2) then begin       k: =k+1;   n: =n+1;       end;     end; end;       writeln('kol-vo chisel - ', k/2); end.вроде бы сделал так, как требовалось.

Объяснение:

Анализ содержаний следовых количеств тяжелых металлов традиционными физико-химическими методами (атомная абсорбция, полярография, фотометрия и др.) требует предварительной пробоподготовки, т.к. металлы в большинстве объектов находятся в связанном состоянии. Они образуют достаточно прочные органические комплексы, мешающие точному и воспроизводимому определению их содержания. Поэтому перед любым анализом необходимо предварительно разрушить органическую составляющую пробы.

При подготовке проб к анализу методами ААС, ИСП-МС и ИСП-АЭС наибольшее развитие получило мокрое озоление проб различными кислотами при СВЧ-поля под давлением (СВЧ-минерализации под давлением).

Процесс минерализации проходит следующим образом: разлагаемая проба и окислительные реагенты помещаются в специальный сосуд из радиопрозрачного химически инертного материала (стекло, кварц, фторопласт), сосуд при необходимости герметично закрывается, переносится в микроволновую систему и реакционная смесь нагревается в СВЧ поле. При этом суммарное время пробоподготовки сокращается в десятки и сотни раз.

Было: const   n = 10;   var   i, s: integer;     m: array [1..n] of integer;   begin   randomize;     s : = 0;   for i : = 1 to n do   begin     m[i] : = random(201) - 100;     writeln(m[i]);   end;   for i : = 1 to n do     if m[i] mod 2 = 0 then       s : = s + m[i];   writeln('summa = ', s);   readln; end.   стало: цел i, s, n n : = 10 цел таб m[1: n]   алг нач   s : = 0   нц для i от 1 до n     m[i] : = irand(-100, 100)     вывод m[i], нс   кц    нц для i от 1 до n     если mod(m[i], 2) = 0 то       s : = s + m[i]     все   кц   вывод "summa = ", s кон