⇢ 
Любовь Горячева
Александртатьян
1) Должно быть какое-то ограничение, не бесконечная же сумма. Ну допустим, что количество чисел, из которых суммируем только нечетные, вводится и равно n. Тогда так:
var n,s,i:integer;
begin
s:=0;
read(n);
for i := 1 to n do
begin
if odd(i) then s := s + i;
end;
write(s);
readln;readln
end.
2)
var a:array[1..100]of integer;
i,k:integer;
begin
k:= -maxint;
for i:=1 to N do
begin
read(a);
if(a>k)then k:=a;
end;
write(k);
readln;readln
end.
Ad
Adenios
2. ..
max:=a[1];
For i:=1 to n do
If a>max then max:=a;
Write('max=',max);
End.
И с первой готов помочь, если более нормально объясните условия.
Похожие вопросы