созданные при помощи турбо поскаля

[Rognarog]

Просшу всех кто чоть что-то понимает в турбо паскале или умеет работать с ним прислать мне програмку ( любою , даже самую простую).....

[ShaddyR]

program kr70;
uses crt;
const n=60;
var a:array[1..n] of real;
s:real;
i:integer;
begin
clrscr;
Writeln('Введите массив a:');
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
s:=s+a[i];
s:=s/n;
writeln('srednee arifm=',s:8:2);
readkey
end.
убери е-мейл в профиль, указывать его таким образом запрещено.

[Arrest]

ShaddyR
Наверно, readkey; ?

[ShaddyR]

Arrest: наверное, не обязательно - оптимизация ;)