паскаль

помогите.
Написать программу которая считает средне арифмитическое 5 чисел,числа вводятся с клавы

 

Почему ты не хочешь думать?

 

друг попросил,я никогда паскаль не учил)

 

давно не видел паскаль, так что синтаксис подправить сам.

function middle(a[5]:array of integer):double
var s:double;
var i:integer;
begin
for I:=1 to 5 do
s:=a+s;
s:=s/5;
middle:=s;
end;

 

PHP:

uses crt; 
var a, b, c, d, e: integer; 
s: real; 
begin 
clrscr; 
write ('1 chislo: '); 
readln(a); 
write ('2 chislo: '); 
readln(b); 
write ('3 chislo: '); 
readln(c); 
write ('4 chislo: '); 
readln(d); 
write ('5 chislo: '); 
readln(e); 
s:=(a+b+c+d+e)/5; 
write ('Srednee arifmiticheskoe ', a,',',b,',',c,',',d,',',e, '=',s:8:2); 
readln; 
end.

 

пздц

Code:

program Project2;

var i:integer;
a:array[1..5]of real;
sum:extended;
begin
sum:=0;
writeln('VVedite chisla');

for i:=1 to 5 do
read(a[i]);
for i:=1 to 5 do
sum:=sum+a[i];

writeln('srednee ',sum/5:4:2);
READLN;
READLN;
end.

 

братан, в паскале extended нет, он только в делфи.
с циклами лучше, ну так вдруг челу надо простая задача, он циклов еще не проходил

 

да что ты?нету да?открой вики и посмотри...
я просто предложил компактный код и все.к тому же в твоем коде оно дроби не посчитает...

 

да, я натупил чето.

 

Code:

Program arif;
var a,b,c,d,e:real;
begin
writeln('Vvedi chisla cherez probel');
readln(a,b,c,d,e);
writeln('Otvet = ',(a+b+c+d+e)/5);
end.

Чем короче, тем лучше

UPD:
Так еще короче:

HTML:

var a,b,c,d,e:real; begin writeln('Vvedi chisla cherez probel'); readln(a,b,c,d,e); writeln('Otvet = ',(a+b+c+d+e)/5); end.

 

True )

 

Я там умножил Потом подумал, что он исправить не сможет и поправил пост