Написать программу

[erm]

1.Написать программу в Pascal,которая позволяет ввести с клавиатуры 10 любых чисел,вычисляет и выводит на экран сумму только положительных из них.
2.Также написать программу в Pascal,которая печатает на экране таблицу значений функции Y=3*х^2-5 для значений х на отрезке [-3;3] с шагом 0,5

Заранее спасибо

[Stilet]

var x,y:double;i:integer;
begin y:=0;
 for i:=1 to 10 do begin
  readln(x); if x>0 then y:=y+x;
 end; writeln(y);

 x:=-3; while x<=3 do begin
  writeln('x:',x:10:2,'    y:',3*x*x-5);
  x:=x+0.5;
 end;
 readln;
end.

[erm]

Спасибо, но она не работает почему-то

[Sciv]

Спасибо, но она не работает почему-то

конечно не работает. С чего бы ей работать-то?

А ошибку внимательно прочитать не можете?

[Stilet]

С чего бы ей работать-то?

Я пост свой поправил. Видимо думал о чем-то другом когда писал пример. Приношу извинения.

[Sciv]

Видимо думал о чем-то другом

А я думал, это такая загадка для ТС, чтоб сам мозг включил ненадолго

[Stilet]

Было бы неплохо, но как видишь:

она не работает почему-то

[WorldMaster]

Сообщение от Sciv

А я думал, это такая загадка для ТС, чтоб сам мозг включил ненадолго

А зачем моцк включать когда тут за него профи все напишут. Интересно в будущем появятся посты типа "Нужен программер для сдачи госэкзамена"?

[erm]

Спасибо за потраченное время, просто мы это только только прошли, а я толком ничего не поняла
И все-таки мне Паскаль пишет: "неизвестное имя типа double"

[WorldMaster]

Попробуйте real вместо него