Определить количество элементов массива, не попадающих в интервал от -2 до 2,5

@pomoshnuk · Регистрация: 07.11.2012

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

1)В заданном массиве из 5 действительных чисел определите количество чисел, не попадающих в интервал от -2 до 2,5.

Kodzaev · 07.11.2012, 13:10

Сообщение от pomoshnuk

1)В заданном массиве из 5 действительных чисел определите количество чисел, не попадающих в интервал от -2 до 2,5.

Pascal

Var
  x: Array[1..5] of Real;
  i,k: Integer;
BEGIN
Writeln('Введите массив:');
For i:=1 to 5 do
begin
  Readln(x[i]);
  If (x[i]<-2) or (x[i]>2.5) Then
  k:=k+1;
end;
Writeln('Количество = ',k);
Readln
END.

@pomoshnuk 0 / 0 / 0 Регистрация: 07.11.2012 Сообщений: 6
		1
	Определить количество элементов массива, не попадающих в интервал от -2 до 2,5 07.11.2012, 13:00. Показов 2199. Ответов 1 Метки нет (Все метки) 1)В заданном массиве из 5 действительных чисел определите количество чисел, не попадающих в интервал от -2 до 2,5. 0

	07.11.2012, 13:10

Определить количество элементов массива, не попадающих в интервал от -2 до 2,5

Решение