Турбо паскаль среди всех трехзначных чисел найти те у которых первая цифра равна трем.

Var  i: integer; begin   for  i=100  to  999  do  if i div 100=3  then writeln(i,'   '); end.

Var a: array [1..100,1..100] of longint ; i, j ,d, n,m,k: longint; beginread(n,m); for i: =1 to n do  for j: = 1 to m doread(a[i,j]); j: =0;         for i: =1 to n do        begin        j: =j+1;         d: =0;                   while d< 2 do                  if a[i,j]< 0 then begin k: =k+1; d: = 3; end;         end; if k> (m/2) then        begin        for i: = 1 to n do                  for j: = 1 to m do                  if a[i,j]< 0 then a[i,j]: =a[i,j]*10 ;         end else begin        for i: =1 to n do          for j: = 1 to m do          if a[i,j]< 0 then a[i,j]: =a[i,j]*a[i,j] ; end; for i: =1 to n dobegin  for j: = 1 to m dowrite(a[i,j],' '); end; end.

Const   k = 15; var   x: array[1..k] of integer;   i, n, m: integer; begin   randomize;   write('введите значение n -> ');   readln(n);   write('элементы массива: ');   m : = 0;   for i : = 1 to k do   begin       x[i] : = random(n + 1) + 1;       m : = m + x[i];       write(x[i]: 4);   end;   writeln;   writeln('среднее арифметическое равно ', m / k: 0: 4) end. тестовое решение: введите значение n -> 50 элементы массива:     22  31    1  35  18  41    1  35  46  12  48  27  35  37  29 среднее арифметическое равно 27.8667