Хотя бы 1.
Через массивы.
9 класс.


1. Заменить в массиве все максимальные элементы нулям.
Как должно получиться:

2. В массиве 1 элемент наибольший, 1 наименьший, поменяйте их местами.

3. В целочисленном массиве найти среднее арифметические черных чисел.

1

Ответы и объяснения

2013-12-05T13:54:55+00:00
Задача 3.

var
  a: array [1..100] of integer;
  n,i,c,s: integer;
begin
  readln(n);
  for i:=1 to n do begin
    a[i]:= random(100);
    if a[i] mod 2=0 then begin
      inc(c);
      s:= s+a[i];
    end
  end;
  writeln(s/c);
end.