Предмет:
ИнформатикаАвтор:
brandy95var
a:array [1..100] of integer;
i,sum,n:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if abs(a[i]) mod 2 = 1 then
begin
sum:=sum+a[i];
write(i,',');
end;
writeln;
writeln(sum);
end.
Автор:
jaceyboyleДобавить свой ответ
Предмет:
ХимияАвтор:
nadialawrenceОтветов:
Смотреть
Предмет:
МатематикаАвтор:
darrylorgqОтветов:
Смотреть
Предмет:
МатематикаАвтор:
maddendaltonОтветов:
Смотреть
Предмет:
МатематикаАвтор:
friskyОтветов:
Смотреть