В заданном массиве к четным элементам прибавить a . А из элементов с четным номером вычесть b.
const n=5;var m:array[1..n] of integer;i,a,b:integer;beginreadln(a,b);for i:=1 to n do readln (m[i]);for i:=1 to n doif i mod 2 = 0 then m[i]:=m[i]+aelse m[i]:=m[i]+b;for i:=1 to n dowriteln ('m[', i,']=', m[i]);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const n=5;
var m:array[1..n] of integer;
i,a,b:integer;
begin
readln(a,b);
for i:=1 to n do readln (m[i]);
for i:=1 to n do
if i mod 2 = 0 then m[i]:=m[i]+a
else m[i]:=m[i]+b;
for i:=1 to n do
writeln ('m[', i,']=', m[i]);
end.