Вводится последовательность ненулевых чисел (могут быть отрицательные). определить, сколько чисел нужно сложить, чтобы сумма стала равна 0.

Объяснение:одномерного массива:

varимямассива: array [нижняяграница..верхняяграница] ofтипэлементов;

двумерного массива:

varимямассива: array [нижняяграница1..верхняяграница1,нижняяграница2..верхняяграница2] ofтипэлементов;

заполение массива:

одномерный массив: for i: =1 to5do readln(a[i]); {ввод с клавиатуры}

двумерный массив: for i: =1 to3do

                                                                           for j: =1 to2do readln(a[i,j]);

вывод массива на экран:

в столбец: for i: =1 to5do writeln(a[i]);

в строку: for i: =1 to5do write(a[i],' ');

матрица двумерного массива:

for i: =1 to n do

begin

for j: =1 to m do

write (a[i,j]: 4);

writeln;

end;

действия с одномерным массивом:

вычисление суммы элементов:

s: =0;

for i: =1 to n do s: =s+a[i];

подсчет элементов, удовлетворяющих условию:

k: =0;

for i: =1 tondo

if a[i] условиеотбора then k: =k+1;

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

var s:string;

len,i,n:integer;

begin

write ('Введите строку:'); readln (s);

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

len:=length(s);

if len>n then s:=copy (s,len-n+1,len-n)

else if len<n then for i:=len+1 to n do insert('.',s,1);

writeln ('Итоговая строка: ');

write (s);

readln;

end.

Введите строку:qwertyuiopa

введите N:5

Итоговая строка:

uiopa

Введите строку:abrik

введите N:10

Итоговая строка:PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

var s:string;

len,i,n:integer;

begin

write ('Введите строку:'); readln (s);

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

len:=length(s);

if len>n then s:=copy (s,len-n+1,len-n)

else if len<n then for i:=len+1 to n do insert('.',s,1);

writeln ('Итоговая строка: ');

write (s);

readln;

end.

Введите строку:qwertyuiopa

введите N:5

Итоговая строка:

uiopa

Введите строку:abrik

введите N:10

Итоговая строка: