матрица

[jennyjen]

Помогите пожалуйста решит. Дана матрица B[1..2,1..3] необходимо найти число положительных елементов из колонн.

[alex_fcsm]

Во-первых, найти из столбцов(прибегнем к официальной терминологии). Что уже сделано? Показывайте, обязательно подскажем

[Stilet]

А я зык то кто?

[jennyjen]

Program P13;
type matrice=array[1..2,1..3] of integer;
var b:matrice;
     i,j,p:integer;
begin
for i:=1 to 2 do
forj:=1 to 3 do begin
writeln(Íntroduce the elements:');
readln(b[i,j]);
end;
for i:=1 to 2 do begin
for j:=1 to 3 do
write(b[i,j],'');
writeln;
end;
for i:=1 to 2 do
p:=0;
for j:=1 to 3 do if b[i,j]>0 then p:=p+1;
writeln('p=',p);
readln;
end.

я только до этого додумалась...

[QUOTE=Stilet;676722]А я зык то кто?[/QUO

Pascal

[Stilet]

Отето другое дело
Вот тебе мое предложение:

type matrice=array[1..2,1..3] of integer;
var b:matrice; Positive:array[1..3] of integer;
     i,j,p:integer;
begin
for i:=1 to 2 do begin
 for j:=1 to 3 do begin
   b[i,j]:=50-random(100);write(b[i,j]:5);
   if b[i,j]>0 then Positive[j]:=Positive[j]+1;
 end; writeln;
end;
for i:=1 to 3 do writeln('p=',Positive[i]);
readln;
end.

Смысл ясен?

[jennyjen]

все ясно кроме что выполняет, делает функция random? я догадаваюсь но к моему позору такое мы не учили...

[alex_fcsm]

Объявление: Function Random[( Range Word)]: <тип параметра>;
Режим: Windows, Real, Protected
Замечания:

Если параметр Range не определен, то результатом будет случайное число типа Real в диапазоне 0 <= X < 1. Если параметр Range определен, то результатом будет случайное число в диапазоне 0 <= X < Range.

[jennyjen]

спасибо.
я ввела программу и вышло Ошибка 215:Арифметическое переполнение

[alex_fcsm]

Сообщение от jennyjen

спасибо.
я ввела программу и вышло Ошибка 215:Арифметическое переполнение

Выкладывайте свой код, посмотрим

[jennyjen]

Обясните что вы подразумеваете под кодом (я полный чайник), если это какая именно у меня програма, тогда ответ Turbo Pascal.