ЛР7 Программирование (1.4.2 В22) - III

LabWork7

📑 Compile Pascal Online

III. Программа Pascal

Program Lab7;

var X,Y,T: array [0..1000] of real;

    SX,SY: string;

    N,M,i: integer;

begin

    writeln('Лаб.7':38);

    write('Количество элементов N: '); 

    readln(N); writeln(N:3);

    readln(SX); writeln('Массив X: '); writeln(SX);

    readln(SY); writeln('Массив Y: '); writeln(SY);

    i:=1; M:=0; writeln('Массив T: ');

    while i<N+1 do

    begin

        val(copy(SX,1,pos(' ',SX)-1),X[i-1]);

        val(copy(SY,1,pos(' ',SY)-1),Y[i-1]);

        if i=N then

        begin

            val(SX,X[i-1]); val(SY,Y[i-1]);

        end;

        if ((X[i-1]<>0) and (Y[i-1]<>0)) or ((X[i-1]=0) and (SX[1]='0')) or ((Y[i-1]=0) and (SY[1]='0')) then

        begin

            if X[i-1]>Y[i-1] then

            begin

                T[i-1]:=X[i-1]; M:=M+1;

            end

            else T[i-1]:=Y[i-1];

        end

        else

        begin

            writeln('Данные не корректны'); break;

        end;

        write(T[i-1]:5:2); write(' ');

        delete(SX,1,pos(' ',SX)); delete(SY,1,pos(' ',SY));

        i:=i+1;

    end;

    writeln(); 

    writeln('Количество элементов X в Т: '); 

    writeln(M); 

end.

STDIN

10

0.86 -13.29 44.56 10.19 -38.8 35.38 -41.66 38.75 -1.73 -40.66

-19.52 -31.89 6.07 32.04 32.16 39.84 -29.39 6.35 45.79 -43.54