Вводится 10 чисел. Найти среднее арифметическое положительных чисел и произведение отрицательных.

[Руся93]

Вот что написал я

program m;
uses crt;
var i,j,cr,pr,sum,k:integer;
begin
clrscr;
sum:=0;
pr:=1;
j:=0;
for i:=1 to 10 do
begin
sum:=sum+k; j:=j+1; cr:=sum/j;
end;
else
pr:=pr*k;
end;
writeln(cr);
writeln(pr);
readkey;
end.

Программа не работает выдает ошибку Error26: Type mismatch. В паскале не силен, поэтому даже незнаю как её исправить.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

a else тут к чему? не вижу ни 1 if.

cr:=sum/j;

тут div вместо / либо cr должен быть не целочисленного типа.

[Руся93]

Значит else не нужно?

[Alex11223]

Значит else не нужно?

ну else может быть в условном операторе (if-then-else/если-то-иначе), тут он непонятно для чего.

но мне кажется этот код не решает задачу, потому что как минимум

Вводится 10 чисел

не вижу ни 1 ввода чего-либо

положительных чисел и ... отрицательных.

и определения положительное это число или отрицательное (скорее всего для этого и был if, от которого остался else).

[Руся93]

Подскажите что нужно, чтобы задача решалась?

[Serge_Bliznykov]

else нужен. но к нему ещё и if должен быть.
который проверяет, положительное число или отрицательное.

Дальше. А где собственно ВВОД 10 чисел?!!

[Alex11223]

Вводить в цикле 10 чисел. Если число положительное — прибавить его к переменной, в которой считается сумма положительных чисел и еще надо считать их кол-во, чтобы после цикла сумму разделить на кол-во и получить сред.арф. Иначе (если отрицательное) считать их произведение в другой переменной (кстати, не забудь перед циклом присвоить ей значение 1, ибо 0*любое_число=0).
Примерно такой алгоритм.

[Руся93]

Посмотрите пожалуйста, написал без ошибок но не считает

program g;
uses crt;
var i,j,cr,pr,sum,k:integer;
begin
clrscr;
sum:=0;
pr:=1;
j:=0;
for i:=1 to 10 do
begin
read(k);
if k>0 then 
begin
sum:=sum+k;
j:=j+1;
cr:=sum div j:
end
else
pr:=pr*k;
end;
writeln(cr);
writeln(pr);
readkey;
end.

________
Руся93, а Вы по русски читаете?!

Повторяю: Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

cr — это среднее арифметическое? Его после цикла (for) надо считать.
Хотя и так все должно считать. Только в той же строке опечатка — : вместо ;

[Serge_Bliznykov]

program g;
uses crt;
var i, j, sum, k: integer;
  pr : real;
begin
  clrscr;
  sum := 0;
  pr := 1;
  j := 0;
  for i := 1 to 10 do
  begin
    read(k);
    if k >= 0 then
    begin
      sum := sum + k;
      j := j + 1;
    end
    else
      pr := pr * k;
  end;
  if j=0 then WriteLn('Положительных чисел нет!')
  else WriteLn('Среднеарифметическое положительных: ', (sum/j):0:3);
  writeln('Произведение отрицательных: ', pr:0:0);
  readkey;
end.