program olah_array (ke-4 --> menentukan index nilai max dan min versi ke-2)

program olah_array;
uses wincrt;
var i,n, total,min,max, indexma,indexmi: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= nilai[1];
for i:=2 to n do
begin
if min>nilai[i] then begin
min:=nilai[i] ; indexmi:=i ;
end
else begin
min:= min; indexmi:=1;
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i]; indexma:=i; end;
end;
writeln('Nilai Tertinggi: ', max,' di index ke-', indexma);
writeln('Nilai Terendah: ', min,' di index ke-', indexmi);
end;
end.

program olah_array (ke-4 --> menentukan index nilai max dan min)

program olah_array;
uses wincrt;
var i,n, total,min,max, indexma,indexmi: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= 9999;
for i:=1 to n do
begin
if min>nilai[1] then begin;
min:=nilai[i];indexmi:=i; end;
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i]; indexma:=i; end;
end;
writeln('Nilai Tertinggi: ', max,' di index ke-', indexma);
writeln('Nilai Terendah: ', min,' di index ke-', indexmi);
end.

Program olah_array (ke-3, dengan menentukan nilai min, max)

program olah_array;
uses wincrt;
var i,n, total,min,max: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);

min:= 9999;
for i:=1 to n do
begin
if min>nilai[1] then
min:=nilai[i];
end;

max:= -9999;
for i:=1 to n do
begin
if max max:= nilai[i];
end;
writeln('Nilai Tertinggi: ', max);
writeln('Nilai Terendah: ', min);
end.

program olah_array (versi ke-2)

program olah_array;
uses wincrt;
var i,n, total: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2:4:2);
end.

program olah_array (latihan array ke-2)

program olah_array;
uses wincrt;
var i,n, total: integer; rata2: real;
nilai: array [1..10] of integer;
begin
total:= 0;
readln (n);
for i:= 1 to n do
begin
write ('Nilai Ke-',i, ':');
readln (nilai[i]);
total:=(nilai[i]);
total:= total+nilai[i];
end;
rata2:= total/n;
writeln ('rata-rata nilai: ', rata2);
end.

Program inputan_array (latihan array ke-1)

program input_array;
uses wincrt;
var i, n: integer;
nama: array [1..10] of string;
q: char;
begin
write ('Masukkan jumlah nama: ');
readln (n);
if (n<=10) then begin
for i:= 1 to n do begin
write ('Nama ke-', i, '= ');
readln (nama[i]);
end;
writeln ('Data Terimpan');
writeln;
end;
writeln ('Tampilkan data? (Y/T)');
readln (q);
if (q='Y') then begin
for i:= 1 to n do
writeln (nama[i]);
end
else
halt;
readln;
end.