#4. ОБРАБОТКА ОДНОМЕРНЫХ ЧИСЛОВЫХ МАССИВОВ
СУММА ДВУХ ОДИНАКОВЫХ ПО РАЗМЕРУ МАССИВОВ
В языке Pascal программист может описывать свои собственные типы и объекты, относящиеся к этому типу. Тип массив относится к структурированным типам.
Описание типа помещают в раздел определения типов после раздела описания констант и до раздела описания переменных (var).
Например: TYPE massiv=array[1..100] of integer;
var a, b, c: massiv;
Описание типа позволяет применить формальный параметр типа massiv.
ПОСТАНОВКА ЗАДАЧИ:
Заполнить и вывести на экран два одинаковых по размеру массива: А и B.
Найти массив C ,каждый элемент которого равен сумме
соответствующих элементов массивов А и В: C[i]=A[i]+B[i].
Program Summa_Mass; uses crt;
Type mas= array[1..100] of integer;
var a, b, c: mas;
I, n: integer;
procedure Input(var x: mas);
Begin
for i:=1 to n do begin write('Элемент [',i,']='); readln(x[i]); end
end;
procedure Print(x: mas); begin for i:=1 to n do write(' ',x[i]); end;
procedure SumMass; begin for i:=1 to n do c[i]:=a[i]+b[i]; end;
Begin
ClrScr; n:=20;
writeln('Ввoд массива А:); Input(a);
writeln('Ввод массива В:); Input(b);
ClrScr;
write(' A: '); Print(a);
write(' B: '); Print(b);
SumMass;
write(' C: '); Print(c);
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Найти сумму элементов, стоящих на четных местах в массиве С.
3. Найти сумму четных элементов в массиве С.
