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

@Nataliaa · Регистрация: 25.05.2014

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

Составить программу, определяющую количество положительных, отрицательных и нулевых элементов матрицы А

@tomb2002 · 14.10.2014, 16:57

Pascal

Program laba_1;
USES CRT;
Var
A : array [1..15] of integer;
i,x1,x2,x3 : byte;
BEGIN
clrscr;
Randomize;
x1:=0; x2:=0; x3:=0;
WriteLn('Create massiv A : ');
For i:=1 to 15 do
  Begin
    A[i]:=Random(21)-10;
    Write(A[i]:3,' ');
    If A[i] > 0 then inc(x1);
    If A[i] = 0 then inc(x2);
    If A[i] < 0 then inc(x3)
  End;
WriteLn;
WriteLn(' Положительных = ',x1,' Равных нулю = ',x2,' Отрицательных = ',x3);
Readkey
END.

@Nataliaa · 14.10.2014, 17:02 **[ТС]**

А типа byte не хватит?

@tomb2002 · 14.10.2014, 20:48

Вообще-то типа byte достаточно для массива состоящего из 15 элементов.
Тип byte стандартный целый беззнаковый тип данных может содержать числа от 0 до 255. И занимает в оперативной памяти 1 байт. Для решения Вашей задачи нам подходит.

@Nataliaa 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 16
		1
	Определить количество положительных, отрицательных и нулевых элементов матрицы 14.10.2014, 16:26. Показов 1275. Ответов 3 Метки нет (Все метки) Составить программу, определяющую количество положительных, отрицательных и нулевых элементов матрицы А 0

@Nataliaa 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 16
	14.10.2014, 17:02 [ТС]	3
	А типа byte не хватит? 0

@tomb2002 33 / 33 / 43 Регистрация: 07.02.2014 Сообщений: 89
	14.10.2014, 20:48	4
	Вообще-то типа byte достаточно для массива состоящего из 15 элементов. Тип byte стандартный целый беззнаковый тип данных может содержать числа от 0 до 255. И занимает в оперативной памяти 1 байт. Для решения Вашей задачи нам подходит. 0

Опции темы