Меню сайта

Задача №53

Сколько вмассиве Т(м) элементов меньших суммы всех элементов.

uses crt-

vari,size,summa,num:integer-

t:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива’)-

readln(size)-

writeln(‘Введите элементы массива’)-

FOR i := 1 TO sizedo

begin

readln(t[i])-

end-

FOR i := 1 TO sizedo

begin

summa := summa +t[i]-

end-

FOR i:= 1 TO sizedo

begin

IF t[i] &lt- summaTHEN num := num + 1-

end-

writeln(‘В массиве элементов меньше суммы всехэлементов ‘, num)-

end.

Категория: Массивы | Дата: 09.12.12

Меню раздела
Блок