у мішечку лежить квасоля біла та чорна. Складіть блок схему алгоритму розкладання цієї квасолі у дві банки: в одну білу, в іншу - чорну

1) ответ: 12

a 1 2 3

b 1 2 4

2) ответ: i = 30

3) ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.

3 (???) ) ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02

4) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.

Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.

5) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (a[i] mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (i mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.