Меню сайта

Задача №52

Определитьсколько элементов массива &lt-,&gt-,= X.

uses crt-

varx,i,size,more,less,mid:integer-

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

begin

CLrscr-

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

readln(size)-

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

FOR i := 1 TO sizedo

begin

readln(a[i])

end-

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

readln(x)-

FOR i := 1 TO sizedo

begin

IF a[i] &gt- x THENmore := more + 1-

IF a[i] &lt- x THENless := less + 1-

IF a[i] = x THENmid := mid + 1-

end-

writeln(‘Больше числа Х в массиве элементов ‘,more)-

writeln(‘Меньше числа Х в массиве элементов ‘,less)-

writeln(‘Равных числу Х в массиве элементов ‘, mid)-

end.

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

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