ОБРАБОТКА ОДНОМЕРНЫХ ЧИСЛОВЫХ МАССИВОВ
№ 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. Найти сумму четных элементов в массиве С.