СУММА ЭЛЕМЕНТОВ МАССИВА ПО УСЛОВИЮ

ПОСТАНОВКА ЗАДАЧИ: Заполнить и вывести массив на экран.

Ввести условие суммирования ( а[i]<u ).

Найти сумму и вывести на экран результат.

Program SumUsl; uses crt;

const a: array[1..10] of integer=(3,5,2,1,6,3,8,7,5,9);

var i, s, u: integer;

procedure Su;

Begin

s:=0;

for i:=1 to 10 do if a[i]<u then s:=s+a[i]

write('Сумма элементов меньших ',u,' равна ',s);

end;

Begin

ClrScr;

Print; { смотри занятие 32 }

writeln; writeln;

write('Введите условие суммирования : '); readln(u);

Su;

Readkey;

End.

З А Д А Н И Я:

1. Изменить условие суммирования.

2. Написать процедуру Input.

3. Найти произведение элементов по условию.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 34

#3. ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ

ОПРЕДЕЛЕНИЕ ЧИСЛА ЭЛЕМЕНТОВ МАССИВА ПО УСЛОВИЮ

ПОСТАНОВКА ЗАДАЧИ:

Заполнить массив и вывести его на экран.

Ввести с клавиатуры условие.

Подсчитать количество элементов удовлетворяющих условию.

Program KolUsl; uses crt;

const m=1; { min индекс }

n=10; { max индекс }

var i, k, usl: integer;

a: array[m..n] of integer;

... { процедуры Input и Print см. занятие 32 }

procedure Kol_po_Usl;

Begin

write('Введите ограничение :'); readln(usl);

k:=0;

for i:=m to n do if a[i]>usl then k:=k+1

write('Кoличество элементов больших ',usl, ' равно ', k);

end;

Begin

ClrScr;

Input;

ClrScr;

Print;

writeln; writeln;

Kol_po_Usl;

Readkey;

End.

З А Д А Н И Я:

1. Самостоятельно написать процедуры Input, Print и исполнить программу.

2. Изменить условие подсчета элементов.

3. Подсчитать сумму элементов по условию.