при n = 2:
по началу i равен одному, а S нулю. Далее i <= n, то есть 1 <= 2, ответ да. К S прибавляется i, и S будет равен одному. Еще к i прибавляется 2, и i становится тройкой. Возвращаемся к началу алгоритма, но с новыми значениями, i у нас равен трем, а S равен одному. Далее проверяется условие i <= n, то есть 3<=2. Ответ нет, и выводится ответ S. А S равен однерке.
Ответ: 1
1 Компьютер это универсальная машина для обработки информации.
2 Человек сталеивается с хранением обработкой и передачей информацией.
1)
// здесь нужно объявить количество элементов или ввести с помощью readln
var
a: array [1..N] of integer;
i: integer;
min: integer;
max: integer;
minnum: integer;
maxnum: integer;
begin
// здесь должен быть ввод значений массива в цикле
// for i:=1 to N do
a[i]=Random(100); или через readln;
min := a[1];
minnum := 1;
max := a[1];
maxnum := 1;
for var i:=2 to N do
begin
if a[i]<min then
begin
min := a[i];
minnum := i;
end;
if a[i]>max then
begin
max := a[i];
maxnum := i;
end;
end;
a[maxnum]=min;
a[minnum]=max;
//здесь вывод нового массива
end.
2)
for i:=1 to N do
if a[i]>0 then
if <span>a[i] mod 2 = 0 then
write(a[i], ' ');
3)
var </span>
<span>sum: integer;
</span><span>start: integer;
</span><span><span>for i:=1 to N do
if a[i]=0 then
start=i+1; ////нашли первый нулевой, начинаем дальше со следующего
</span>for i:=start to N do
begin
if a[i]>0 then
begin
sum=sum+a[i];
</span>write(i, ' '); ///номер <span><span>положительного элемента
</span> end;
</span>writeln;
write('Сумма =',sum);
end;
Var
i,j:integer;
begin
for i:=1 to 20 do begin
for j:=1 to i do Write(i);
Writeln
end
end.