Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.
к переменной "c" прибавить один это сокращение от c=c+1
// PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Var s:string;i:longint;
Begin
readln(s);
readln(i);
writeln(s[i]);
End.
жили были кот и собака. Однажды кот поймал ворону. Пёс говорит -- дай покушать! -- кот отвечает -- нет слови сам и ешь! -- пёс обиделся и пошёл ловить птиц. Поймал штук 10 и пошёл в дом. Кот видит пёс птиц наловил, и начал просить -- дай покушать! -- пёс отвечает -- нет налови сам, и ешь! -- кот пошёл ловить птиц да не может поймать их!
Ловил ловил пришёл домой без добычи, обидно ему пёс кушает а он нет. Кот попросил прощение. Пёс ему и говорит -- хорошо прощу только ты делись со всеми, и они будут с тобой делиться.