Вычислить количество элементов массива, меньших 5

@МистерМеГа · Регистрация: 21.11.2013

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

Задача:
Дан одномерный массив Y, с количеством элементов N действительных чисел, вычислить:
а)количество элементов, меньших 5;
б)среднее арифметическое элементов, равных 3.
Прошу помочь.

@CodeR · 23.11.2013, 15:18

Pascal

Const nmax=100;
Var Y:array[1..nmax] of real;
    i,n,k,r:byte;
    sr:real;
Begin
    write('Введите n<=',nmax,': ');readln(n);
    For i:=1 to n do
    Begin
      Y[i]:=random*10;
      write(Y[i]:6:2);
      if Y[i]<5 then inc(k);
      if Y[i]=5 then 
      Begin
        inc(r);
        sr:=sr+Y[i];
      End;
    End;
    writeln;
    writeln('a) = ',k);
    if r>0 then writeln('б) = ',sr/r:0:2)
     else writeln('б) нету элементов удолетворяющих условию ');
    readln;
End.

@МистерМеГа · 23.11.2013, 16:08 **[ТС]**

Спасибо конечно, по почему чтобы я не вводил условие б выдает "нету элементов удовлетворяющих условию"?

@CodeR · 23.11.2013, 16:11

Сообщение от МистерМеГа

Спасибо конечно, по почему чтобы я не вводил условие б выдает "нету элементов удовлетворяющих условию"?

смотри условие б и подумай почему

@МистерМеГа 3 / 3 / 0 Регистрация: 21.11.2013 Сообщений: 47
		1
	Вычислить количество элементов массива, меньших 5 23.11.2013, 15:13. Показов 599. Ответов 3 Метки нет (Все метки) Задача: Дан одномерный массив Y, с количеством элементов N действительных чисел, вычислить: а)количество элементов, меньших 5; б)среднее арифметическое элементов, равных 3. Прошу помочь. 0

@МистерМеГа 3 / 3 / 0 Регистрация: 21.11.2013 Сообщений: 47
	23.11.2013, 16:08 [ТС]	3
	Спасибо конечно, по почему чтобы я не вводил условие б выдает "нету элементов удовлетворяющих условию"? 0

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	23.11.2013, 16:11	4
	Сообщение от МистерМеГа Спасибо конечно, по почему чтобы я не вводил условие б выдает "нету элементов удовлетворяющих условию"? смотри условие б и подумай почему 0