| Rognarog |
21-06-2006 22:50 453341 |
созданные при помощи турбо поскаля
Просшу всех кто чоть что-то понимает в турбо паскале или умеет работать с ним прислать мне програмку ( любою , даже самую простую).....
|
| ShaddyR |
22-06-2006 12:58 453558 |
PHP код:
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 |
22-06-2006 22:19 453828 |
ShaddyR
Наверно, readkey; ?
|
| ShaddyR |
23-06-2006 10:58 453972 |
Arrest: наверное, не обязательно - оптимизация ;)
|
Время: 05:47.
© OSzone.net 2001-
