1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
FOR J = 1 TO 5
A(I, J) = INT(RND * 10)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
PRINT , S
<span>NEXT I
Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
FOR J = 1 TO 3
A(I, J) = INT(RND * 5)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
P = P * S
PRINT
NEXT I
PRINT
<span>PRINT "P="; P</span>
2
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
A(I) = INT(RND * 20) - 10
PRINT A(I); " ";
IF A(I) > O THEN
S = S + A(I)
P = P * A(I)
N = N + 1
END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N
</span>
1- 159,2-4,3-15,4-1000010,5-100000,6-1011
Var
A,R:real;
i,L,z:integer;
S:string;
Begin
Read(S);
L:=Length(S);
i:=1;
R:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
R:=R*10+StrToInt(S[i]);
i:=i+1
End;
While i<L do
Begin
Case S[i] of
'+':z:=0;
'-':z:=1;
'*':z:=2;
'/':z:=3;
End;
i:=i+1;
A:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
A:=A*10+StrToInt(S[i]);
i:=i+1
End;
if i=L then A:=A*10+StrToInt(S[L]);
Case z of
0:R:=R+A;
1:R:=R-A;
2:R:=R*A;
3:R:=R/A;
End;
End;
WriteLn('R = ',R);
End.