Вам даны все оценки некоторого ученика по информатике. Сколько хороших оценок (троек, четвёрок, пятёрок) он заработал, до получения первой двойки. Ввод оценок заканчивается нулём. Ноль - признак окончания ввода, не оценка
С++

ответ:            м     и    к  р   о   ф   о   н

                                      о

                                      м  ы  ш  ь

                       д              п

                       и              ь

                       с              ю                п

                       к   л  а  в  и  а   т  у  р  а

                                        е                 о                 э

                                        р                 ц                к

                                            в   и   д   е  о   к   а   р   т   а

                                                            с                  а

                                                            с                  н

                                                            о              

                     м    о    н     и     т    о    р

Объяснение:

Pascal

const

 n=6;

var

a, b :array[0..n-1] of integer;

i :integer;

begin

 for i:=0 to n-1 do begin

   write('Введите a[', i+1, '] :');

   readln(a[i]);

 end;

 writeln();

 writeln('Увеличиваем каждый элемент в 2 раза');

 for i :=0 to n-1 do begin

   b[i]:= 2*a[i];

   write(b[i], ' ');

 end;

 writeln();

 writeln('Увеличиваем на 5 все элементы проме 1-го и последнего');

 for i:=0 to n-1 do begin

   if (i=0) or (i=n-1) then

     b[i]:= a[i]

   else

     b[i]:= a[i] +5;

   write(b[i], ' ');

 end;

 writeln();

 writeln('Первую половину массива увеличиваем на 1, вторую в 2 раза');

 for i:=0 to n-1 do begin

   if i < n div 2 then

     b[i]:= a[i]+1

   else

     b[i]:= 2 * a[i];

   write(b[i], ' ');

 end;

end.