Суммирование двух одномерных массивов. (№4)

Одномерный массив (основные задачи).

Ввод-вывод элементов массива. (№1-2)

Так как необходимо ввести определенное число элементов, то алгоритмическая структура программы будет циклической. В цикле, управляющей переменной будет являться значение i - индекс элемента массива, для вывода элементов так же будет использован цикл.

№1.Program Vvod_elem1;

Var

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

i : integer;

Begin

writeln (‘ Заполнение элементов целочисленного массива A[10] ‘);

for i:=1 to 10 do

Begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

writeln (‘В памяти компьютера сформирован массив с элементами’);

fori:=1 to 10 do

write (a[ i ]:6);

readln;

End.

№2.Program Vvod_elem2;

Var

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

i : integer;

Begin

randomize;

writeln (‘Элементы целочисленного массива A[15] сформированные случайными числами диапазона от -100 до 100.‘);

for i:=1 to 15 do

Begin

a[ i ]:=random(201)-100;

write (a[ i ]:6);

end;

readln;

End.

Нахождение суммы элементов массива. (№3)

Для получения суммы элементов одномерного статического массива необходимо подготовить ячейку для накопления в нее суммы, предварительно обнулить ее значение. После чего, перебирая в цикле все элементы массива, увеличивать ее значение на величину значения каждого i-го элемента.

№3. Program Summa;

Var

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

s, i : integer;

Begin

writeln (‘ Заполнение элементов целочисленного массива A[20] ‘);

for i:=1 to 20 do

Begin

write (‘a[‘, i , ‘] =‘);

read(a[ i ]);

end;

s:=0;

fori:=1 to 20 do

s:=s+a[ i ];

writeln (‘s=‘,s);

readln;

End.

№4. Program Summirovanie;

Type

massiv=array[1..10] of integer;

Var

a , b, c: massiv;

i : integer;

Begin

randomize;

writeln (‘ Массив A ‘);

for i:=1 to 10 do

Begin

a[ i ]:=random(51);

write (a[ i ]:5);

end;

writeln (‘ Массив B ‘);

for i:=1 to 10 do

Begin

b[ i ]:=random(151)-70;

write (b[ i ]:5);

end;

for i:=1 to 10 do

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

writeln (‘ Массив C ‘);

for i:=1 to 10 do

write (c[ i ]:6);

readln;

End.

Суммирование двух одномерных массивов. (№4)

Данный алгоритм подразумевает формирование элементов массива по заданным элементам двух массивов, где каждое очередное значение получаемого массива равно сумме соответствующих элементов заданных массивов по индексом получаемого элемента. Т.е. c[i]=a[i]+b[i]. (Задача №4, см. выше).