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

@rozz_anima · Регистрация: 27.05.2015

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

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

@ROS88 · 27.05.2015, 20:20

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   A: array[1..10] of integer;
   i, k1, k2, k3: integer;
begin
     randomize;
     for i := 1 to 10 do
       A[i] := RandomRange(-10, 10);
     k1 := 0;
     k2 := 0;
     k3 := 0;
     for i := 1 to 10 do
       begin
         if (A[i] < 0) then
           k1 := k1 + 1
         else
           if (A[i] > 0) then
             k2 := k2 + 1
           else
             k3 := k3 + 1;
       end;
end;

@rozz_anima 0 / 0 / 0 Регистрация: 27.05.2015 Сообщений: 3
		1
	В произвольно заданном одномерном массиве определить число отрицательных нулевых и положительных элементов 27.05.2015, 19:49. Показов 1759. Ответов 1 Метки нет (Все метки) в произвольно заданном одномерном массиве определить число отрицательных нулевых и положительных элементов 0

	27.05.2015, 20:20

Опции темы

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

Решение