Сколько элементов массива превосходят по модулю заданное число a

@Linkez · Регистрация: 21.12.2012

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

Сколько элементов массива превосходят по модулю заданное число a.

Комментарий модератора

Обращаю Ваше внимание на правила форума:
1. Дублирование (создание одинаковых тем в разделе), кросспостинг (создание одинаковых тем в разных разделах) запрещены.
2. Название темы должно быть информативным.

Kodzaev · 16.01.2013, 02:36

Pascal

Var
  x: Array[1..100] of Integer;
  a,n,i,k: Integer;
BEGIN
Write('Введите кол-во элементов в массиве: ');
Readln(n);
Writeln('Введите число A: ');
Readln(a);
For i:=1 to n do
begin
  x[i]:=Random(1001)-500;
  If Abs(x[i])>a Then Inc(k);
  Write(x[i],' ');
end;
Writeln;
Writeln(k,' элементов массива превосходят по модулю заданное число ',a);
END.

	16.01.2013, 02:36

Опции темы

Сколько элементов массива превосходят по модулю заданное число a

Решение