Program gt;
var a,b:array[1..100]of real;
s1,s2:real;
n,m,i:longint;
begin
read(n,m);
s1:=0;s2:=0;
for i:=1 to n do
begin
read(a[i]);
s1:=s1+a[i];
end;
for i:=1 to m do
begin
read(b[i]);
s2:=s2+b[i];
end;
writeln(s1,' ',s2);
<span>end.</span>
А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.
Javascript:var массив=[];for(var сч=0;сч<5;сч++)массив.push(Math.floor(Math.random()*100));alert(массив);alert(Math.min.apply(null,массив));alert(Math.max.apply(null,массив));
Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub