Все готовые лабы по паскалю (1 задание)

Посмотреть архив целиком

  • даны: натуральное число n, действительное число . Вычислить сумму тех чисел этой последовательности, которые неотрицательные, но не превышают 12,5.




      • Текст программы:

    var

    n,i: integer; x: array[1..100]of real; s: real;

    begin

    write ('n=');

    readln (n);

    s:=0;

    for i:=1 to n do begin

    write('x');

    readln (x[i]);

    end;

    for i:=1 to n do begin

    if x[i] < 12.5 then begin

    s:=s+x [i];

    end;

    end;

    writeln ('s=',s);

    readln; readln;

    end.


    • Исходные данные: n=3 and x=1,x=2,x=3. Результат: s=6.0000000000E+00







    да

    нет



  • Случайные файлы

    Файл
    70389.rtf
    123976.rtf
    82355.rtf
    112504.rtf
    151581.rtf




    Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
    Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
    Это можно сделать совершенно бесплатно. Читайте подробности тут.