Шпаргалка: Информатика и ВТ

CONST_N1=100;

VAR_K,N:INTEGER;

X:ARRAY[1..N1]_OF_REAL;

BEGIN

WRITE(’Введите количество чисел в последовательности n=’);

READLN(N);

WRITELN(’Введите элементы последовательности’);

FOR_K:=1_TO_N_DO

BEGIN

READ(X[K]);

IF_X[K]<=0_THEN_X[K]:=SQR(X[K]);

WRITELN(X[K]);

END;

END.