Вроде это чпу !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Вроде так ...............
Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
DIM x AS DOUBLE, y AS DOUBLE
CLS
INPUT x, y
IF x < y THEN
x = (x + y) / 2
y = 2 * x * y
ELSE
y = (x + y) / 2
x = 2 * x * y
END IF
PRINT "x="; x; ", y="; y
Результат
? 5.68,3.9
x= 54.4144 , y= 4.79