Написать программу в паскале: 1.удвоить заданное число, если оно положительное, утроить его, если оно отрицательно, и увеличит его на 1, если оно равно нулю.

Var a: real; begin readln(a); if a> 0 then a: =a*2; if a< 0 then a: =a*3; if a=0 then a: =a+1; writeln(a) end.

ответ:

var

    x, y: integer;

 

begin

    write ('x = ');

    readln (x);

 

    if x > 0 then

        y : = x - 2

    else

        if x = 0 then

            y : = 0

        else

            y : = abs(x);

 

    writeln ('y = ', y);

 

end.

объяснение:

var

    x, y: integer;

 

begin

    write ('x = ');

    readln (x);

 

    if x > 0 then

        y : = x - 2

    else

        if x = 0 then

            y : = 0

        else

            y : = abs(x);

 

    writeln ('y = ', y);

 

end.

#include

int main()

{

    float mass[5] = { 2.2, 3.1, -3.6, 0.1, 2.1 };

    int counter = 0; // счетчик

    for (int i = 0; i < 5; i++)

    {

        if (mass[i] < 0.99) counter++;

    }

    std: : cout < < "rezultat: " < < counter < < std: : endl;

    return 0;

}

в твоем массиве только два числа меньше 0.99, программа отрабатывает и выдает двойку. вроде все верно.