Определить, сколько в массиве Т(м) элементов меньших суммы всех элементов — Pascal(Паскаль)

uses crt;

var
  i, size, summa, num: integer;
  t: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(t[i]);
  end;
  FOR i := 1 TO size do
  begin
    summa := summa + t[i];
  end;
  FOR i := 1 TO size do
  begin
    IF t[i] < summa THEN
      num := num + 1;
  end;
  writeln('В массиве элементов меньше суммы всех элементов ', num);

end.

Leave a Comment

− 8 = 2