Цитата:
Сообщение от Sergei47
Язык Паскаль,..
1.Даны числа а1, а2,...а50. Получить сумму тех чисел которые abs(a[1])<sqr(a[i]).
2.Дано натуральное число (n). Выяснить сколько положительных элементов матрицы [aij],ij=i...n ., если aij=sin((i+j)/2)
просто у меня уже мозги кипят..((еще сессия..
|
Всё равно не уверен в правильности этого: abs(a[1])<sqr(a[i]). А тут опять переписана какая-то чушь: ij=i...n . Ну как знаете. Программы пишу как понимаю условия, уж не взыщите.
Код:
VAR
A:ARRAY[1..50] of INTEGER;
i,SUM:INTEGER;
BEGIN
SUM:=0;
Randomize;
FOR i:=1 TO 50 DO
BEGIN
A[i]:=RANDOM(100)-50;
IF Abs(A[1])<SQR(A[i]) THEN SUM:=SUM+A[1];
END;
WriteLn('SUM= ',SUM);
ReadLn;
END.
Код:
CONST
N=10;
VAR
i,j,Number:INTEGER;
BEGIN
Number:=0;
FOR i:=1 TO N DO
FOR j:=1 TO N DO
IF Sin(1.0*(i+j)/2)>0 THEN INC(Number);
WriteLn('Number of positive matrix elements is ',Number);
ReadLn;
END.