Д/з по теме "алгоритмическая конструкция: цикл" "разбор числа на цифры" ввести многозначное число. найти: младшую цифру числа; старшую цифру числа; сумму цифр числа; произведение цифр; количество цифр; минимальную цифру числа; максимальную цифру числа; количество нулевых цифр; сумму четных цифр; произведение цифр, кратных 3.

var  a, st, summ, pr, count, min, max, count0, summch, pr3: integer; begin  write('введите число '); readln(a);

  writeln;   writeln('младшая цифра числа: ', a mod 10);

  max : = a mod 10;

  min : = max;

  summ : = 0;

  summch : = 0;

  pr : = 1;

  count : = 0;

  count0 : = 0;

  pr3 : = 1;

  while a < > 0 do

  begin

      count : = count + 1;

      summ : = summ + a mod 10;

      pr : = pr * (a mod 10);

      if (a mod 10) mod 2 = 0 then

          summch : = summch + a mod 10;

    if (a mod 10 < > 0) and ((a mod 10) mod 3 = 0) then

        pr3 : = pr3 * (a mod 10);

    if a mod 10 = 0 then

          count0 : = count0 + 1;

    if a mod 10 > max then

          max : = a mod 10;

      if a mod 10 < min then

          min : = a mod 10;

      if a div 10 = 0 then

          st : = a mod 10;

      a : = a div 10;

  end;

  writeln('старшая цифра числа: ', st);

  writeln('сумма цифр числа: ', summ);

  writeln('произведение цифр числа: ', pr);

  writeln('количество цифр числа: ', count);

  writeln('минимальная цифра числа: ', min);

  writeln('максимальная цифра числа: ', max);

  writeln('количество нулевых цифр: ', count0);

  writeln('сумма четных цифр: ', summch);

  writeln('произведение цифр кратных 3: ', pr3);

  writeln; end.

{автор:       рудницкий в. л. ограничения: последовательность не может быть длинее nn. откуда:       олимпиада, kz, 2016.} const  nn = 10000; var  a   : array [1 .. nn] of integer;   i, j, d, n: integer; begin   write('введите длину массива: '); readln(n);   writeln('введите массив чисел через пробел: ');   for i : = 1 to n do    read( a[i] );   { удаляем повторы чисел }   for i : = 1 to n-1 do     for j : = i+1 to n do       if a[i] = a[j] then a[j] : = 0;   { создаем последовательность заполняя не нужные числа нулями }   for i : = 2 to n do    if ( a[i-1] > a[i] ) and ( a[i] < > 0 ) then a[i] : = 0;   { суммируем не нулевые элементы }   d : = 0;   for i : = 1 to n do    if a[i] < > 0 then d : = d + 1;   writeln('максимальная длинна массива после удалений: ',d); end.

Сделал все! ) поставь наилучшее! 1)var a: array [0..5] of integer;     i,j: integer; begin  randomize;   j: =0; for i: =0 to 5 do   a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 3 =0 then  inc(j); writeln(j); readln; 2)var a: array [0..5] of integer;     i,j: integer; begin   randomize;   j: =0; for i: =0 to 5 do  a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 2 =0 then    j: =j+a[i]; writeln(j); readln; 3)a: array [0..5] of integer;     i,s: integer; begin randomize; s: =1; for i: =0 to 5 do  a[i]: =random(9)+1; for i: =0 to 5 do  if i mod 2 < > 0 then    s: =s*a[i]; writeln(s); readln; end.4)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin  randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(100);   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do  begin   if a[i,j] mod 2 =0 then  a[i,j]: =2   else if a[i,j] mod 2 < > 0 then    a[i,j]: =1; end; writeln;   for i: =0 to n do   begin    writeln;   for j: =0 to m do    write(a[i,j]: 3);   end; readln; end. 5)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin    randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(10);   for i: =0 to n do   begin    writeln;   for j: =0 to m do  write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do a[i,j]: =a[i,j]*2; writeln;   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);     end; readln; end.