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

@ZORRXXX · Регистрация: 08.08.2012

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

Дан массив. Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера. (В массиве должны быть как положительные так и отрицательные числа).

@lexo_lwm · 10.12.2012, 21:50

Pascal

uses 
 crt;
var
 a:array[1..10] of integer;
 sum,k,i: integer;
begin 
 clrscr;
 randomize;
 for i:=1 to 10 do
  begin
  readln(a[i]);
  inc(sum,a[i]);
  end;
 for i:=1 to 10 do
 if (a[i]>sum) then begin writeln('i = ',i); inc(k); end;
 writeln('K : ',k);
 readln;
end.

@ZORRXXX 0 / 0 / 1 Регистрация: 08.08.2012 Сообщений: 90
		1
	Дан массив. Определить количество элементов, больших суммы всех элементов массива 10.12.2012, 21:40. Показов 3889. Ответов 1 Метки нет (Все метки) Дан массив. Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера. (В массиве должны быть как положительные так и отрицательные числа). 0

	10.12.2012, 21:50

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

Решение