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

ShaddyR · Конфигурация компьютера

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:19, 22-06-2006** | #3

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

ShaddyR · Конфигурация компьютера

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