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. |
A[1] | A[2] | A[3] | A[4] | A[5] | A[6] | A[7] | A[8] | A[9] | A[10] |
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
10 | 20 | 30 | 40 | 50 | 60 | 70 | 80 | 90 | 100 |