Помогите Пожалуйсто с простой Задачкой! (P.S Паскаль)

[__STDC__]

Потому что первым вводится количество эл-тов, а вторым - первый элемент.. т.е. 5 элементов, начиная с 3
еще неплохо было бы проинициализировать переменную k (k := 1; )

[kmax2]

мож показать куда вставить эту k (k := 1; )
program c4;
uses crt;
var
n,k,kmax,sum:integer;
begin
writeln(' Vvedite "K" i "N" cherez probel');
readln(kmax,n);
if (kmax <= 0 ) or (n <= 0) then begin
writeln('Error! K <= 0 ili N <= 0');
exit;
end;
while (k <= kmax) do begin
if (n mod 5 = 0) then begin
sum := sum + n;
inc(k);
end;
inc(n);
end;
writeln('summa pavna:');
write(sum);
end.

[kmax2]

вот смотри ты говориш что 5 элементов начиная с 3 это же
5+10+15+20+25=30+45=75 ну это же далеко не 105

[__STDC__]

Вставить после if (после end; )
Как это не 75? 75 получается.. проблема в том, что вы не проинициализировали k
Паскаль по умолчанию (по крайней мере пока вы из среды запускаете) считае k нулем, соответственно считает сумму на один эл-т больше.. вот так

[kmax2]

program c4;
uses crt;
var
n,k,kmax,sum:integer;
begin
writeln(' Vvedite "K" i "N" cherez probel');
readln(kmax,n);
if (kmax <= 0 ) or (n <= 0) then begin
writeln('Error! K <= 0 ili N <= 0');
exit;
end;
while (k <= kmax) do begin
if (n mod 5 = 0) then begin
sum := sum + n;
inc(k);
end;
k (k := 1; )
inc(n);
end;
writeln('summa pavna:');
write(sum);
end.
так чтоли

[__STDC__]

program c4;
uses crt;
var
n,k,kmax,sum:integer;
begin
writeln(' Vvedite "K" i "N" cherez probel');
readln(kmax,n);
if (kmax <= 0 ) or (n <= 0) then begin
writeln('Error! K <= 0 ili N <= 0');
exit;
end;
k := 1; 
while (k <= kmax) do begin
if (n mod 5 = 0) then begin
sum := sum + n;
inc(k);
end;
inc(n);
end;
writeln('summa pavna:');
write(sum);
end.

Вот так..

[kmax2]

Потому что первым вводится количество эл-тов, а вторым - первый элемент.. т.е. 5 элементов, начиная с 3
еще неплохо было бы проинициализировать переменную k (k := 1; )


а как сделать стоб сначало водить с какого начинать а потом скоко чисел считать

[__STDC__]

readln(kmax,n);

поменять на

readln(n,kmax);

[kmax2]

оооо все работает спс те еще раз)))

[kmax2]

здорово счас сижи на информатике помоги плиз задачу сделать


вести с клавиатуры масив B3[N] НАйти средниеарифметическое элементов массива. N ВОДяться с клавиатуры 0<N<20

СРОЧНО ПЛИЗЗЗ