5) - 1
6) - 2
.........................................
Const
N = 15;
Var
A:array[1..N] of integer;
i:integer;
P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
P:=P*A[i]
End;
WriteLn;
WriteLn('P = ',P);
End.
Const
N = 20;
Var
A:array[1..N] of integer;
i:integer;
P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
P:=P*A[i]
End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
if A[i] mod 5 = 0 then Write(' ',A[i])
End.
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
Begin
A[i]:=random(31);
Write(' ',A[i]);
if i mod 2 <> 0 then S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.
Здесь 5 раз.5тый поздоровался с 4тым.А 4тый поздоровался с 3тым.Так идет до конца
11 001 100 011 1112 = 31 437
11 001 100 011 1112 = 3 31F
1 010 011 110 001 111 1012 = 1 236 175
1 010 011 110 001 111 1012 = 53 C7D
100 001 111 100 010 101 1102 = 4 174 256
100 001 111 100 010 101 1102 = 10F 8AE
Var
x, y, z, k: integer;
Begin
writeln('Введите двухзначное число');
read(x);
y:=x div 10;
z:=x mod 10 ;
k:=y+z;
writeln('Сумма цифр: ',k);
End.