паскаль !!!

[tiffany-girl]

очень нужна ваша помощь !!!!
нужно найти среднее значение положительных элементов массива [ 1..12],массив задать через константу.

[Hacker19_90]

program fortiffany;
uses crt;
const
     n = 12;
var
    mas: array[1..n] of real;
    Kol, i: integer;
    sr: real;
begin
     clrscr;
     Kol := 0;
     sr := 0;
    writeln ('Введите массив');
    for i := 1 to n do
    begin
         Read(mas[i]);
         if mas[i] > 0 then
         begin
              Inc(Kol);
              sr := sr + mas[i];
         end;
    end;
    Readln;
    sr := sr/Kol;
    Writeln ('Среднее:', sr:4:2);
    ReadKey;
end;

[Serge_Bliznykov]

хм. попытка засчитывается. но есть пара серьёзных недочётов.
1) массив в задании надо задавать через константу.
2) при делении на KOL надо учесть, что таких чисел может не быть (тогда kol будет нулевое и получим программное исключение при делении на ноль!)

program fortiffany;
const 
  n = 12;
  mas : array[1..n] of integer =
   (1,-2,9,0,-100,10,20,40,0,10,-3,-10);

var
    Kol, i, sum : integer;
begin
    Kol := 0;
    sum := 0;
    for i := 1 to n do
    begin
      if mas[i] > 0 then
      begin
        Inc(Kol);
        sum := sum + mas[i];
      end;
    end;
    if kol=0 
      then Writeln ('Положительных чисел нет!')
      else Writeln ('Среднее: ', (sum/Kol):4:2);
    Readln;
end.

[ZVEREK]

Прошу прощения что влез к вам! у меня такая проблема при запуске файла (exe) он быстро закрывается, не показывает решение!
Что можно с ним сделать? Чтоб он не закрывался так быстро, и успевал показывать решение , и возможно ли сделать чтоб в обычном нормальном окне а не в командной строке если можно объясните мне по подробней, я только начал изучать паскаль. Заранее благо дарю вас!!! и надеюсь на вашу помощь. исходник в PAS ТАКОЙ


PROGRAM PRIMER (INPUT,OUTPUT);
CONST PI=3.14;
VAR
R: REAL;
V: REAL;
BEGIN
WRITELN('введите значение радиуса R:');
READ(R);
V:=4*PI*R*R*R/3;
WRITELN;
WRITELN('РЕЗУЛЬТАТ:');
WRITELN('ОБЕМ ШАРА=',V:8:3)
END.

[DRAgon™]

Сообщение от ZVEREK

Прошу прощения что влез к вам! у меня такая проблема при запуске файла (exe) он быстро закрывается, не показывает решение!
Что можно с ним сделать? Чтоб он не закрывался так быстро, и успевал показывать решение , и возможно ли сделать чтоб в обычном нормальном окне а не в командной строке если можно объясните мне по подробней, я только начал изучать паскаль. Заранее благо дарю вас!!! и надеюсь на вашу помощь. исходник в PAS ТАКОЙ


PROGRAM PRIMER (INPUT,OUTPUT);
CONST PI=3.14;
VAR
R: REAL;
V: REAL;
BEGIN
WRITELN('введите значение радиуса R:');
READ(R);
V:=4*PI*R*R*R/3;
WRITELN;
WRITELN('РЕЗУЛЬТАТ:');
WRITELN('ОБЕМ ШАРА=',V:8:3)
END.

Поставь между

WRITELN('ОБЕМ ШАРА=',V:8:3)
END.

readln;

[DRAgon™]

Сообщение от ZVEREK

Прошу прощения что влез к вам! у меня такая проблема при запуске файла (exe) он быстро закрывается, не показывает решение!
и возможно ли сделать чтоб в обычном нормальном окне а не в командной строке [U]

возможно конечно,но вам пока рано раз вы новичек

[ZVEREK]

А А А!?! НЕ СОВСЕМ ПОНЯЛ ЧТО И КУДА НУЖНО ВСТАВИТЬ???

[DRAgon™]

напиши перед END readln;

[ZVEREK]

ПРОСТИТЕ КОНЕЧНО НО ЧТО ЗНАЧИТ ( вам пока рано раз вы новичек ) МНЕ КАКТО-Ж НАДО ДЛЯ СЕБЯ ПРОВЕРЯТЬ. ЧТО У МЕНЯ ПОЛУЧИЛОСЬ.

[DRAgon™]

Сообщение от ZVEREK

ПРОСТИТЕ КОНЕЧНО НО ЧТО ЗНАЧИТ ( вам пока рано раз вы новичек ) МНЕ КАКТО-Ж НАДО ДЛЯ СЕБЯ ПРОВЕРЯТЬ. ЧТО У МЕНЯ ПОЛУЧИЛОСЬ.

нутк проверяйте ,зачем вам в форме выводить простеькую задачку если можно просто запустить компилятором.