program matrik 1 dimensi;
uses crt;
var i,N : integer;
A, B, C : ARRAY[1..10] OF INTEGER;
begin
clrscr;
i:=1;
while i <= 10 do
begin
writeln('masukkan data A : ', i);
readln (A[i]);
i:=i+1;
end;
clrscr;
i:=1;
while i <= 10 do
begin
writeln('masukkan data B : ', i);
readln (B[i]);
i:=i+1;
end;
writeln ('Jumlahkan A dan B : ');
readln;
i:=1;
clrscr;
while i <= 10 do
begin
C[i] := A[i] + B[i];
writeln ('nilai C ke ', i, ' adalah ', c[i]);
i:=i+1;
end;
writeln ('selesai');
readln;
end.
One Response to "Bahasa Pascal (Matrik 1 Dimensi)"