Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад