Программа для подсчета количества элементов массива

@rubega · Регистрация: 24.01.2013

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

Помогите пожалуйста составить программу.
Задание: Составить программу подсчета количества элементов массива С, лежащих в интервале (a, b).

@rab · 29.01.2013, 17:36

Pascal

var
    c: array [1..10] of Integer;
    a,b,i,k: Integer;
begin
    randomize;
    for i := 1 to 10 do
        c[i] := random(100);
    readLn(a, b);
    k := 0;
    for i := 1 to 10 do
        if (c[i] > a) and (c[i] < b) then
            inc(k);
    writeLn(k);
    readLn; 
end.

@rubega · 29.01.2013, 17:39 **[ТС]**

Спасибо огромное.

@Дикутенз · 29.01.2013, 17:43

Pascal

Uses crt;
const n=30;
Type mas=array[1..n] of integer;
Var C:mas; a,b:integer; i,k:integer;
  Begin clrscr; randomize;
    for i:=1 to n do
      Begin
        c[i]:=Random(1000);
        Write(c[i]:4);
      End;
    WriteLn;
    Write('vvedite a=');
    ReadLn(a);
    Write('vvedite b=');
    ReadLn(b);
    k:=0;
    if a>b then Write('oshibka vvoda')
           else for i:=1 to n do
                    if (c[i]>a) and (c[i]<b) then inc(k);
    Write('k=',k);
    ReadLn;
  End.

@rubega 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 3
		1
	Программа для подсчета количества элементов массива 29.01.2013, 17:31. Показов 6441. Ответов 3 Метки нет (Все метки) Помогите пожалуйста составить программу. Задание: Составить программу подсчета количества элементов массива С, лежащих в интервале (a, b). 0

@rubega 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 3
	29.01.2013, 17:39 [ТС]	3
	Спасибо огромное. 0

	29.01.2013, 17:43