Code
PROGRAM N1;
VAR A:ARRAY [1..10] OF 0..9;I:INTEGER;
BEGIN
FOR I:=1 TO 10 DO
BEGIN
A[I]:=RANDOM(10);
WRITE(A[I]:2);
END;
WRITELN;
FOR I:=1 TO 10 DO
BEGIN
IF (A[I] MOD 2=0) THEN A[I]:=2;
WRITE(A[I]:2);
END;
END.
Code
PROGRAM N2;
VAR C:ARRAY [1..4,1..5] OF INTEGER;S:ARRAY[1..5] OF INTEGER;I,J:INTEGER;
BEGIN
FOR I:=1 TO 5 DO S[I]:=0;
FOR I:=1 TO 4 DO
BEGIN
FOR J:=1 TO 5 DO
BEGIN
C[I,J]:=3*I-2*J;
WRITE(C[I,J]:3);
S[J]:=S[J]+C[I,J];
END;
WRITELN
END;
WRITELN;
FOR I:=1 TO 5 DO
WRITE(S[I]:3);
WRITELN;
WRITELN;WRITELN;
END.