Заполнить и вывести на экран два одинаковых по размеру массива: А и B.
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); end
end;
procedure Print(x: mas); begin for i:=1 to n do write(' ',x); end;
procedure SumMass; begin for i:=1 to n do c:=a+b; 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. Найти сумму четных элементов в массиве С.