Матрица, Еще одна к аттестации... Опции

[RastamaN]

Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица A размерности nxn, если:

aij=sin(i+j/2)


Опять, наверное, очень легкая задача, но, все же, помогите, если не сложно... :smile:

[Altair]

не работает потому что у тебя нет FPC.
ВОт тебе решение тупое. Клем предложил

var
 count,n,i,j:integer;
 c:real;
begin
 readln(n);
 count := 0;
 for i := 1 to n do  for j := 1 to n do 
     if sin(i+j/2)>0 then inc(count);
  writeln(count);
end;

М

А твое ну оооочень умное ?! абсолютно такойже полные перебор, только без матрицы c:real - зачем ? klem4