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

@Requiem_ · Регистрация: 08.03.2013

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

Помогите вот с этим

Kodzaev · 04.04.2013, 22:18

Pascal

Var
  a: Array [1..10,1..10] of Real;
  i,j,n,k: Byte;
BEGIN
Write('Введите размер массива: ');
Readln(n);
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    a[i,j]:=Sin((Sqr(i)-Sqr(j))/n);
    Write(a[i,j]:7:2);
    If a[i,j]>0 Then k:=k+1;
  end;
  Writeln
end;
Writeln('Кол-во положительных = ',k);
Readln
END.

@Leshak · 04.04.2013, 22:24

Pascal

a[i,j]>=0

если нули таки тоже надо )

Kodzaev · 04.04.2013, 22:31

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

если нули таки тоже надо )

Ну, даже не знаю. Некоторые говорят, что ноль положительное, а некоторые, что он не относится ни к положительным, ни к отрицательным... Пусть ТС сам решает, как ему надо

@Leshak · 05.04.2013, 00:53

Согласен )

@Requiem_ 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 24
		1
	Сколько положительных элементов содержит матрица 04.04.2013, 22:10. Показов 609. Ответов 4 Метки нет (Все метки) Помогите вот с этим Миниатюры 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	04.04.2013, 22:31	4
	Сообщение от Leshak если нули таки тоже надо ) Ну, даже не знаю. Некоторые говорят, что ноль положительное, а некоторые, что он не относится ни к положительным, ни к отрицательным... Пусть ТС сам решает, как ему надо 1

@Leshak 261 / 236 / 161 Регистрация: 10.12.2011 Сообщений: 513
	05.04.2013, 00:53	5
	Согласен ) 0