Ответ: а=9
Решение:
1) b=2 a=3, подставим: b=9+3*2=15
2) теперь у b новое значение, а не изменилось: b=15 a=3, подставим: a=15/5*3=9
3) у a теперь новое значение: а=9
На входе два числа а и б
далее проверяем
если а меньше б
то минимум равен а
иначе минимум равен б
в конце выводим минимум
и завершаем программу
Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.
Ввод нуля означает завершение ввода(он нигде не учитывается)
program test;
var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;
begin
sum:=0;
average:=0;
counter:=0;
sumOfPositive:=0;
sumOfNegative:=0;
read(x);
while x <> 0 do
begin
sum:=sum+x;
average:=average+x;
counter:=counter+1;
if x > 0 then
sumOfPositive:=sumOfPositive+x
else
sumOfNegative:=sumOfNegative+x;
read(x);
end;
average:=average/counter;
writeln('Sum = ', sum);
writeln('Arithmetic average = ', average);
writeln('The sum of positive numbers = ', sumOfPositive);
writeln('The sum of negative numbers = ', sumOfNegative);
readln;
end.
Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>