Vgfcytytyfyt

Escribir un programa en Pascal que rellene un array con los números
enteros comprendidos entre 4 y 14.

PROGRAM EJER81;
USES CRT;
VAR arr_num:ARRAY [4..14] of INTEGER;
VAR i:INTEGER;
BEGIN
ClrScr;

FOR i:=4 TO 14 DO
arr_num[i]:=i;

FOR i:=4 TO 14 DO
BEGIN
WRITELN('Numero: ',arr_num[i]);
END;
END.

PROGRAMEJER81;
USES CRT;
VAR arr_num:ARRAY[1..11] of INTEGER;
VAR i,num:INTEGER;
BEGIN
ClrScr;

num:=4;

FOR i:=1 TO 11 DO
BEGIN
arr_num[i]:=num;
num:=num+1;
END;

FOR i:=1 TO 11 DO
BEGIN
WRITE('Posici¢n ',i:2, ': '); WRITELN(arr_num[i]:5);
END;
END.

Escribir un programa en Pascal que rellene unarray con los números
pares comprendidos entre 1 y 10.

PROGRAM EJER82;
USES CRT;
VAR arr_num:ARRAY [1..10] of INTEGER;
VAR i, b:INTEGER;
BEGIN
ClrScr;
i:=1;

WHILE i <= 10 DO
BEGIN
arr_num[i]:=i;

IF (i mod 2)=0 THEN
BEGIN
WRITELN(arr_num[i]);
END;

i:= i + 1;END;
END.

PROGRAM EJER82;
USES CRT;
VAR arr_num:ARRAY[1..10] of INTEGER;
VAR i,num:INTEGER;
BEGIN
ClrScr;
i:=1;
num:=1;

WHILE num<=10 DO
BEGIN
IF num mod 2 = 0 THEN
BEGIN
arr_num[i]:=num;
i:=i+1;
END;
num:=num+1;
END;

arr_num[i]:=3;i:=1;

WHILE arr_num[i] <> 3 DO
BEGIN
WRITE('Posicion ',i:2,' : '); WRITELN(arr_num[i]:5);
i:=i+1;
END;
END.

Escribir un programa en Pascal que rellene un array con los números
comprendidos entre 25 y 35 divididos por 3.

PROGRAM EJER83;
USES CRT;
VAR arr_num:ARRAY [1..11] of REAL;
VAR i:INTEGER;
BEGIN
ClrScr;FOR i:=25 TO 35 DO
arr_num[i]:=i;

FOR i:=25 TO 35 DO
WRITELN(arr_num[i] / 3:5:2);
END.

PROGRAM EJER83;
USES CRT;
VAR arr_num:ARRAY[1..11] of REAL;
VAR i,num:INTEGER;
BEGIN
ClrScr;

i:=1;
num:=025;

FOR i:=1 TO 10 DO
BEGIN
arr_num[i]:=num/3;
num:=num+1;
END;

i:=1;WHILE i <= 10 DO
BEGIN
WRITE('Posicion ',i:2, ': '); WRITELN(arr_num[i]:5);
i:=i+1;
END;
END.

Escribir un programa en Pascal que rellene un array con cinco
números enteros consecutivos y haga una copia de ese array en otro.

PROGRAM EJER84;
USES CRT;
VAR arr_num1,arr_num2:ARRAY [5..10] of INTEGER;
VAR i:INTEGER;
BEGINClrScr;

FOR i:=5 TO 10 DO
BEGIN
arr_num1[i]:=i;
arr_num2[i]:=arr_num1[i];
END;

FOR i:=5 TO 10 DO
WRITELN (arr_num2[i]);

END.

PROGRAM EJER84;
USES CRT;
VAR arr_num1,arr_num2:ARRAY[1..5] of INTEGER;
VAR i,num:INTEGER;
BEGIN
ClrScr;

i:=1;
num:=100;

FOR i:=1 TO 5 DO
BEGINarr_num1[i]:=num;
num:=num+1;
END;

FOR i:=1 TO 5 DO
arr_num2[i]:=arr_num1[i];

i:=1;

WRITELN('ARRAY 1 ARRAY 2':30);

WHILE i <= 5 DO
BEGIN
WRITE('Posicion ',i:2, ': ');
WRITE(arr_num1[i]:5);
WRITELN(arr_num2[i]:10);
i:=i+1;
END;
END.

Escribir un programa en Pascalque rellene un array de 10 elementos
con los números comprendidos entre 23 y 32 y copie en otro array esos
números multiplicados por 0.35.

PROGRAM EJER85;
USES CRT;
VAR arr_num1, arr_num2:ARRAY [23..32] of REAL;
VAR i:INTEGER;
BEGIN
ClrScr;

FOR i:=23 TO 32 DO
BEGIN
arr_num1[i]:=i;
arr_num2[i]:=(arr_num1[i] * 0.35);...