Ввести одномерный массив т[20] с клавиатуры, вывести на экран в строку. отдельно вывести элементы массива большее среднего арифметического. определить их колличество

Const   n = 20; var   t: array[1..n] of integer;   mean: real;   i, k: integer; begin   writeln('введите ', n, ' элементов массива');   for i : = 1 to n do   begin       read(t[i]);       mean : = mean + t[i]   end;   mean : = mean / n;   k : = 0;   writeln(#13#10, 'введено: ');   for i : = 1 to n do write(t[i]: 5);   writeln(#13#10, 'элементы массива, превышаюшие среднее арифметическое ',           mean: 0: 2);   for i : = 1 to n do       if t[i] > mean then       begin           write(t[i]: 5);           k : = k + 1       end;   writeln(#13#10, 'найдено элементов, превышаюших среднее арифметическое: ', k) end. тестовое решение: введите 20 элементов массива 5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21 введено:       5    17    28    45  -20    34      9    18    42  -36    18    36      0    24      5    45    -7    12      1    21 элементы массива, превышаюшие среднее арифметическое 14.85     17    28    45    34    18    42    18    36    24    45    21 найдено элементов, превышаюших среднее арифметическое: 11

ответ:

1. нет ответа

4. а) сжать изображения

    б) удалить встроенные шрифты

5 фотографий

объяснение:

1. таблицы наверное забыли

4. а) с любого графического редактора изменить параметры изображений

    б) удалить встроенные шрифты

    в) можно еще упаковать документ с архиватора, но самый лучший выход почистить наконец флешку от ненужного хлама. но это для ответа не годится, т. к. не условия .

5.

1 гб = 1 * 1024 * 1024 = 1048576 кб - память фотоаппарата

1048576 кб / 30720 кб = 34,1 - всего фотографий

34 - 29 = 5 - осталось

т.к уточнений нет, то написал на pascal самым простеньким методом.

проверьте всё ли тут, что требуется.

var

  a,b,c,d,f,g: integer;

begin

  writeln('входные данные');

  readln(a,b,c);

  if (a

    d: =a;

  if (b

    d: =b;  

  if (c

    d: =c;

  if (a> b) and (a> c) then

    g: =a;

  if (b> c) and (b> a) then

    g: =b;

  if (c> b) and (c> a) then

    g: =c;

  if (a> d) and (a

    f: =a;

  if (b> d) and (b

    f: =b;

  if (c> d) and (c

    f: =c;

  writeln('результат работы');    

  writeln(d+' '+f+' '+g);        

end.