CONTOH PROGRAM PASCAL ARRAY
program penjumlahan;
var
nilai1,nilai2 : array [1..10] of integer ;
a,hasil : integer;
begin
write('Nilai 1 :');
for a := 1 to 10 do
begin
readln(nilai1[a]);
end;
write ('Nilai 2 :');
for a := 1 to 10 do
begin
readln(nilai2[a]);
end;
write('Nilai 1 :');
for a :=1 to 10 do
begin
write(' ',nilai1[a]);
end;
writeln();
write('Nilai 2 :');
for a :=1 to 10 do
begin
write(' ',nilai2[a]);
end;
writeln();
write('Hasil : ');
for a := 1 to 10 do
begin
hasil := nilai1[a] + nilai2[a];
write(hasil,' ');
end;
readln;
end.
SEMOGA BERMANFAAT
:j:
ReplyDelete