Варлаам
5 год назад
Пожалуйста посчитайте пожалуйста
ОТВЕТЫ
Rosica
Oct 24, 2020
1) var a:array [1..1000] of longint; n,s,i:integer;
begin
readln(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if a[i] mod 2=0 then s:=a[i]+5 else s:=a[i]-5;
writeln(S); readln; end.
begin
readln(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if a[i] mod 2=0 then s:=a[i]+5 else s:=a[i]-5;
writeln(S); readln; end.
938
Смежные вопросы:
