новичок.

[314159265]

нужно написать программу,которая вычисляет среднее арифметическое чисел и определяет min и max число в последовательности заданного количества действительных чисел,вводимых с клавиатуры.
ПОМОГИТЕ НАЙТИ ОШИБКУ ПЛИЗ!
program laba;


uses
SysUtils;

var num,sum,min,max,i,k:integer;

begin
repeat
writeln('vvedite kolichestvo chisel v posledovatelnosti ',k);
readln(k);
writeln('vvedite num');
readln(num);
until (k>0);
sum:=0;
min:=num;
max:=min+k-1;
for i:=1 to k-1 do
begin
writeln('vvedite num');
readln(num);
sum:=sum+num;
if(num>max) then max:=num;
if(num<min) then min:=num;
end;
writeln('srednee arifmeticheskoe= ',sum/k:5:2);
readln(sum);
writeln('maximum= ',max);
readln(max);
writeln('minimum= ',min);
readln(min);
end.

Так же ещё одну задачу не знаю как делать совсем.У меня в школе вообще не было информатики,а тут сразу писать программы пошли.
задача 2.Вычислить с точностью E приближённое значение sin(x) по формуле
s=x-(x*x*x)/3! +(x*x*x*x*x)/5! -(x*x*x*x*x*x*x)/7!+(x*x*x*x*x*x*x*x*x)/9! ...~sin(x)
ГРОМАДНОЕ СПАСИБО ТОМУ КТО ПОМОЖЕТ!

[Alex11223]

А в чем ошибка? Что не так? Не компилится? Если да, то какую и где ошибку выдает?

[Step_UA]

sum:=0;

первое число уже ввели ...

max:=min+k-1;

почему max= не первому введенному числу? а если все последующие числа будут меньше первого?
по второй http://programmersforum.ru/showthread.php?t=166563 - ну очень похоже

[314159265]

project project2.exe raised exception class EinOutError with messege "i/O error 105".Process stopped.Use Step or Run to continiue.
В первой задачи выскакивает эта ошибка.Программа не запускается

[Step_UA]

создайте консольное приложение ...

[314159265]

В смысле?Я ,вроде, и так создавал как вы сказали В консоле

[Step_UA]

между program и uses точно есть?

{$APPTYPE CONSOLE}

[314159265]

всё спасибо.Заработало)) я просто вообще не рублю в информатике