ПРОГРАММИСТЫ ПОМОГИТЕ ПОЖАЛУЙСТА!!!

вам уже написали.

$num=-1;$min=0; $max=-100000; $sum=0; $kol=0;
while($num<0){
$num = (float) trim(fgets(STDIN));
if ($num<0){
$kol++;
if ($num<$min) $min=$num;

if ($num>$max) $max=$num;

$sum=$sum+$num;
}
}
printf(".3f .3f .3f", $min, $max, $sum/$kol);

А это веб или клиентское приложение?

пустяки

Код Pascal

var a:array[1..99] of real;
i,n:integer;
sa:real;
begin
write('Количество эл: ');Readln(n); //Количество элементов последовательности
writeln('Введите элементы: ');
for i:=1 to n do readln(a[i]); //Заполняем числами (целыми/дробными)
for i:=1 to n do sa:=sa+a[i]; //Ищем сумму всех чисел
sa:=sa/n; //Делим сумму на кол-во, т. е. Среднее арифметическое.
writeln('Сред. Арифметическое=',sa);
end.

пройдите курсы

Все верно

ну я думаю это не сложно тебе кодинг нужен ?
uses
crt;
const
max=50;
var
a:array[1..max,1..max] of integer;
i,j,n,s,k:integer;
begin
writeln('wvedite razmernost matrici');
readln(n);
writeln('wvedite matricu ',n,' x ',n);
for i:= 1 to n do
begin
for j:= 1 to n do
read(a[i,j]);
end;
s:=0;
k:=0;
for i:= 1 to n do
begin
for j:= 1 to n do
if (j mod 2<>0) and (i mod 2<>0) then
begin
s:=a[i,j]+s;
k:=k+1
end;
end;
s:=round(s/k);
writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);
readkey
end.

Значения макс и мин сам подставь ну и рюшечки развесь

max=50; // вот тут говнокод
var a:array[1..max,1..max] of integer; // вот тут еще целочисленный ограниченный говнокод
дальше даже смотреть не стал это бред с матрицами.. .

array[1..99] of real; // еще лучше :) // real уже лучше, но все равно ограниченный говнокод ...
Люблю я Паскаль говнокодеров. . .Подавляющее большинство паскалистов (RED если ты будешь читать это галимое палево - то ты не в счет ))))) - ограничены, как и этот массив.

Сказано-жишь в ТЗ "Количество чисел должно задаваться ВО время работы программы. "

В приведенных сорцах уже в коде забито ограничение массива
Динамические массивы нужно использовать! ! !
Нахер вот такие бестолковые советы давать php-нубу? !

PS
Почему нуба никто не спросил про "последовательность отрицательных дробных чисел" ?
Ведь это могут быть как минимум две нотации - натуральные дроби и десятичные.

var a:array[1..99] of real;i,n:integer;sa:real;beginwrite('Количество эл: ');Readln(n); //Количество элементов последовательностиwriteln('Введите элементы: ');for i:=1 to n do readln(a[i]); //Заполняем числами (целыми/дробными) for i:=1 to n do sa:=sa+a[i]; //Ищем сумму всех чиселsa:=sa/n; //Делим сумму на кол-во, т. е. Среднее арифметическое. writeln('Сред. Арифметическое=',sa);end.

Иногда очень тревожит, почему людям нужно задавать такие вопросы. В чем именно возникла сложность? А если вам это писать "влом" или вы не понимаете что писать вам все равно придется самому, валите из этой сферы.

1 вариант более лутше))

Написать на php. слеповатые вы.

попробуй Питон!

вп