Найти количество элементов массива, меньших заданного числа В, и произведение всех элементов

@ЯНОЧКА19 · Регистрация: 02.01.2013

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

19. В массиве X(N) найти количество элементов массива, меньших заданного числа В, и произведение всех элементов.

@ZLO1988 · 02.01.2013, 15:47

Элементарные задания для школьников, собственно есть ли какой исходник, тогда поможем разобраться что к чему. Школьники совсем обленились уже...

Новичок · 02.01.2013, 21:09

Да уж,тут на форуме столько подобных заданий,мне лично уже смотреть на них немного надоело.

Pascal

program Mas;
uses crt;
const nmax=100;
var x:array[1..nmax]of Integer;
i,n,b,bcol,proz:Integer;
begin
proz:=1;
repeat
begin
ClrScr;
Write('Введите размер одномерного массива(n),n=');
Read(n);
end;
until n<=nmax;
Writeln('Введите значения элементов массива:');
for i:=1 to n do Read(x[i]);
Writeln('Введенный массив:');
for i:=1 to n do Write(x[i],' ');
Writeln;
Write('Введите число B:');
Read(b);
for i:=1 to n do if x[i]<b then inc(bcol);
Writeln('Количество элементов меньших B:',bcol);
for i:=1 to n do proz:=proz*x[i];
Writeln('Произведение всех элементов массива:',proz);
Readln;
end.

@ЯНОЧКА19 1 / 1 / 0 Регистрация: 02.01.2013 Сообщений: 91
		1
	Найти количество элементов массива, меньших заданного числа В, и произведение всех элементов 02.01.2013, 15:30. Показов 2568. Ответов 2 Метки нет (Все метки) 19. В массиве X(N) найти количество элементов массива, меньших заданного числа В, и произведение всех элементов. 0

@ZLO1988 35 / 21 / 40 Регистрация: 25.02.2012 Сообщений: 170
	02.01.2013, 15:47	2
	Элементарные задания для школьников, собственно есть ли какой исходник, тогда поможем разобраться что к чему. Школьники совсем обленились уже... 0

	02.01.2013, 21:09

Опции темы