Технический форум - Задача о матрице в Паскале. Помогите

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача о матрице в Паскале. Помогите (http://www.tehnari.ru/f41/t73477/)

Arator

18.05.2012 22:06

Задача о матрице в Паскале. Помогите

Добрый день! Спасибо что зашли на мою тему! У меня задание которое не могу решить, помогите пожалуйста!:tehnari_ru_837:

Создать матрицу 3 × 4 из случайных чисел из диапазона [-20; +20]. Вычислить: количество положительных чисел, количество отрицательных чисел.

Vladimir_S

19.05.2012 09:31

Цитата:

Сообщение от Arator (Сообщение 734407)

У меня задание которое не могу решить

А Вы, по всему судя, и не пытались, потому что решать тут ровно нечего. Упражнение для начинающих школьников.
Если я не прав - выложите результаты Ваших попыток, тогда будет другой разговор. Предметный.

Arator

19.05.2012 12:05

Я просто на первом курсе и учу АЗЫ, и с программой не могу разобраться...

Vladimir_S

19.05.2012 12:43

Вложений: 1

Цитата:

Сообщение от Arator (Сообщение 734577)

Я просто на первом курсе и учу АЗЫ, и с программой не могу разобраться...

Ладно, Вложение 79620. Ловите:

Код:

Var

 A:Array[1..3,1..4] of Integer;

 i,j,Npos,Nneg:Byte;

Begin

 Randomize;

 Nneg:=0;

 Npos:=0;

 For i:=1 to 3 do

  begin

   For j:=1 to 4 do

    begin

     A[i,j]:=20-Random(40);

     If A[i,j]>0 then Inc(Npos);

     If A[i,j]<0 then Inc(Nneg);

     Write(A[i,j]:8);

    end;

   Writeln;

  end;

 Writeln;

 Writeln(Npos,' positive and ',Nneg,' negative');

 Readln

End.

Arator

19.05.2012 12:50

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

Часовой пояс GMT +4, время: 03:31.