Бет бағдарының қанша түрі бар​

var

i,n: integer;

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

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

мальчики плывут на тот берег

один возвращается

мама плывет на тот берег

второй мальчик возвращается

два мальчика плывут на тот берег

один возвращается

отец плывет на тот берег

второй мальчик возвращается

мальчики плывут на тот берег

цифровом виде.                                                                                        

1. введите n.

2. цикл for от 1 до n будем вводить 'элементы массива x[i]/

3. в цыкле от 1 до n бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так

write('введите n'); readln(n);

for i: =1 to n do begin write('введите ',i,' элемент массива');

                                                              readln (x[i]);

                                            end;

sum: =0;

for i: =1 t0 n do begin

                                                    write(' ',x[i]);

                                                    sum: =sum+x[i];

                                            end;

write('а сумма всех элементов = ',sum);