Определить, сколько в массиве положительных, отрицательных и нулевых элементов

@Артур7442 · Регистрация: 08.09.2013

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

2. Дан массив действительных чисел. Определить, сколько в нем положительных, отрицательных и нулевых элементов.

@ildwine · 08.11.2013, 17:23

Pascal

const
  n = 15;
var
  x : array [1..n] of real;
  i, kn, kp, kz : byte;
begin
  kn := 0;
  kz := 0;
  kp := 0;
  for i := 1 to n do
  begin
    write('введите ', i, ' элемент массива: ');
    readln(x[i]);
    if x[i] > 0 then inc(kp);
    if x[i] = 0 then inc(kz);
    if x[i] < 0 then inc(kn)
  end;
  for i := 1 to n do
    write(x[i]:6:1);
  writeln;
  writeln('количество положительных = ', kp, 
          ', отрицательных = ', kn, ', нулевых = ', kz);  
end.

@Артур7442 0 / 0 / 0 Регистрация: 08.09.2013 Сообщений: 14
		1
	Определить, сколько в массиве положительных, отрицательных и нулевых элементов 08.11.2013, 16:00. Показов 1675. Ответов 1 Метки нет (Все метки) 2. Дан массив действительных чисел. Определить, сколько в нем положительных, отрицательных и нулевых элементов. 0

	08.11.2013, 17:23

Определить, сколько в массиве положительных, отрицательных и нулевых элементов

Решение