Конец
Перед первым выполнением цикла необходимо задать начальное значение «Сумма» = 0 и затем nраз вычислять «Сумма» при различных значениях Xi<span> и Y</span>i, где i принимает последовательно значения 1,. . ., n и используется цикл с постусловием. В схеме алгоритма заменим слово «сумма» буквой S.
Вычислить факториал М! = 1х2хЗх (М - 1)х М
<span>Факториал вычисляется как произведение от 1 до М, аналогично предыдущему вычислению суммы. Начальное значение переменной «ФАКТ»=1, если это значение задать равным нулю, то и результат будет нулевым.</span>
Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.
program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>