Определить количество элементов, больших суммы всех элементов массива

@Pele · Регистрация: 14.02.2012

Author24 — интернет-сервис помощи студентам

11.73. Дан массив. Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера.
11.74. Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и напечатать их номера.
11.75. Рост 25 учеников класса представлен в виде массива. Определить количество учеников, рост которых больше среднего роста по классу.
11.76. В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость, меньшую, чем средняя стоимость всех видов товара.
11.77. Количество осадков (в миллиметрах), выпавших за каждый день января, хранится в массиве. Определить количество дней, в которые выпало осадков больше, чем в среднем за один день месяца, и напечатать их дату (число месяца).
11.78. В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам.

@lcd1232 · 24.05.2012, 18:32

11.73

Pascal

program ex1;
const n=10;
var
  mas1:array [1..n] of integer;
  i,c,s:integer;
begin
  s:=0;
  c:=0;
  Randomize;
  for i:=1 to n do
  begin
    Write('mas1[',i,']=');
    Readln(mas1[i]);
  end;
  for i:=1 to n do
    s:=mas1[i]+s;
  for i:=1 to n do
  begin
    s:=s-mas1[i];
    if mas1[i]>s then
      c:=c+1;
    s:=s+mas1[i];
  end;
  Writeln('c=',c);
  Readln;
end.

Могу сделать и остальные, но т.к. потребуется на них некоторое время, то только за денюшку.

@Pele 0 / 0 / 0 Регистрация: 14.02.2012 Сообщений: 25
		1
	Определить количество элементов, больших суммы всех элементов массива 24.05.2012, 18:18. Показов 8715. Ответов 1 Метки нет (Все метки) 11.73. Дан массив. Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера. 11.74. Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элементов массива, и напечатать их номера. 11.75. Рост 25 учеников класса представлен в виде массива. Определить количество учеников, рост которых больше среднего роста по классу. 11.76. В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость, меньшую, чем средняя стоимость всех видов товара. 11.77. Количество осадков (в миллиметрах), выпавших за каждый день января, хранится в массиве. Определить количество дней, в которые выпало осадков больше, чем в среднем за один день месяца, и напечатать их дату (число месяца). 11.78. В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам. 0

	24.05.2012, 18:32

Определить количество элементов, больших суммы всех элементов массива

Решение