Var n:array [1..11] of integer; i,k,s:integer; begin for i:=1 to 11 do begin write ('N[',i,'] = ');readln(n[i]); - как по другому записать эту строку? end; s:=0; k:=0; for i:=1 to 11do if odd(i)=true then begin k:=k+1; s:=s+n[i]; end; writeln (k); writeln (s); readln; end.
Var
n: array [1..11] of integer;
i, k, s: integer;
begin
for i:=1 to 11 do
begin
write ('N[',i,'] = ');
readln(n[i]);
end;
s:=0;
k:=0;
for i:=1 to 11 do
if odd(i) then
begin
k:=k+1;
s:=s+n[i];
end;
writeln(k);
writeln(s);
readln;
end.