Меню сайта

Задача №63

Найтичисло элементов массива Т мньших С.

uses crt-

varm,i,c,summa,num:integer-

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

begin

clrscr-

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

readln(m)-

writeln(‘Введите число C’)-

readln(c)-

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

FOR i := 1 TO m do

begin

readln(t[i])-

end-

FOR i := 1 TO m do

begin

IF t[i] &gt- c THEN

-begin

-summa := summa + t[i]- num := num + 1-

end-

end-

writeln(‘Среднее арифметическое элементов больше Cравно ‘, summa / num:7:2)-

writeln(‘Количество элементов меньше С равно ‘,m -num)-

end.

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

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