Найти количество элементов массива больше числа -5

03.09.2012, 20:09. **Показов** 1321. **Ответов** 2

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

Здравствуйте ребят!
Помогите пожалуйста, кому не сложно =)
Дан массив А(20), найти количество элементов данного массива больше числа -5.
Составить программу решения задачи. Нарисовать блок схему.

@Ev[G]eN · 03.09.2012, 20:13

Pascal

const
  n = 20;
var
  Arr: Array[1..n] of Integer;
  Count, i: Byte;
begin
  Randomize;
  Count:=0;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(20)-5;
    if Arr[i] > -5 then
      Inc(Count);
    write(Arr[i], ' ');
  end;
  writeln;
  writeln('Кол-во элементов, больших -5: ', Count);
end.

03.09.2012, 20:14

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

Just Respect
		1
	Найти количество элементов массива больше числа -5 03.09.2012, 20:09. Показов 1321. Ответов 2 Метки нет (Все метки) Здравствуйте ребят! Помогите пожалуйста, кому не сложно =) Дан массив А(20), найти количество элементов данного массива больше числа -5. Составить программу решения задачи. Нарисовать блок схему.

Just Respect
	03.09.2012, 20:14	3
	Спасибо огромное!!

Опции темы

Найти количество элементов массива больше числа -5

Решение