10. Дан одномерный массив. К четным элементам массива прибавить В, а из нечетных вычесть...

Question

10. Дан одномерный массив. К четным элементам массива прибавить В, а из нечетных вычесть С. Значения В и С вводятся с клавиатуры

Answer 1

Var
a:array[1..?сколько у тебя элементов в массиве?] of integer;
b,c,i:integer;
begin
read(b,c);
for i:=1 to /kol-vo elementov v massive/ do
begin
read(a[i]);
write(a[i],' ');
end;
writeln
for i:=1 to /kol-vo elementov v massive/ do
begin
if i mod 2=0 then
a[i]:=a[i]+b
else
a[i]:=a[i]-c;
write(a[i],' ')
end;
end.