https://pastein.ru/t/s3

  скопируйте уникальную ссылку для отправки


program jopa;
var a: array[1..999]of integer;
var c,d,i:integer;
begin
read(c);
for i:=1 to c do
begin
readln(a[i]);
if i mod 2 <>0 then
d:=d+a[i]
end;
writeln;
writeln(d);
end.
program jopa;
var a: array[1..90]of integer;
var c,d,i:integer;
begin
read(c);
for i:=1 to c do
begin
readln(a[i]);
if a[i]<10 then
d:=d+a[i]
end;
writeln;
writeln(d);
end.
program jopa;
var a: array[1..20]of integer;
var c,d,i:integer;
begin
for i:=1 to 20 do
begin
read(a[i]);
if (a[i] mod 3=0) and (a[i] mod 5=0) then
writeln(i,' ');
end;
end.
program jopa;
var a: array[1..20]of integer;
var c,d,i,v,s:integer;
begin
read(d);
for i:=1 to 20 do
begin
read(a[i]);
if i<=d then write(a[i]*-1,' ')
else write(a[i],' ');
end;
end.