Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user.
Selamat Mencoba!!
First Of Solution
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| uses wincrt;
var genap : array[1..100] of integer;
a, b, jum : integer;
begin
a := 0;
b := 2;
write('Jumlah bilangan genap : ');readln(jum);
while a <> jum do begin
inc(a);
genap[a] := b;
b := b + 2;
end;
writeln;
writeln('Hasil yang disimpan di array : ');
for b := 1 to jum do
writeln('Bilangan genap ke-',b,' : ',genap[b]);
end. |