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

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

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




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


    var

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

    begin

    write('n=');

    readln(n);

    s:=0;

    k:=true;

    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) and (x[i]>0) then

    s:=s+x[i];

    end;

    if k then

    writeln('error');

    writeln('s=',s);

    readln;readln;

    end.


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








    нет





































    да
















    да

    нет



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

    Файл
    27653.rtf
    154422.rtf
    16717.rtf
    143343.rtf
    185746.doc




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