tugas struktur data

Program Bilangan_Prima;
uses crt;
var a,b,c,d,e:longint;
begin clrscr;
write('bilangan prima sampai berapa? '); readln(c);
writeln('2':7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
writeln(e:7);
end; readln end.

uses wincrt;
const awal=1;
akhir=5;
var
nim :array [awal...akhir]of string;
nama :array [awal...akhir]of string;
nilai :array [1...5] of integer;
n,i :integer;

begin
write('banyaknya data mahasiswa: ');readln (n);
for n:1 to n do
begin
write('nim-',n,':');readln(nim[n]);
write('nama-',n,':');readln(nama[n]);
for i:=1 to 3 do
begin
write(('nilai ke',i,'=');readln(nilai[i]);
writeln;
end;

end;
writeln;
writeln('hasil dari inputan adalah:');
writeln('=========================================');
writeln('nim nama nilai 1 nilai 2 nilai 3 rata-rata');
writeln('=========================================');
for i := 1 to n do
begin

writeln (nim[n],' ',nama[n],' ',nilai[1],' ',nilai[2],' ',nilai[3]);
writeln;
end;
end.

uses wincrt;
var nilai:array[1..10] of integer;
jm,rata-rata:real;
begin
clrscr;
writeln('menghitung rata-rata 10 buah nilai');
write('nilai1=');readln(nilai[1]);
write('nilai2=');readln(nilai[2]);
write('nilai3=');readln(nilai[3]);
write('nilai4=');readln(nilai[4]);
write('nilai5=');readln(nilai[5]);
write('nilai6=');readln(nilai[6]);
write('nilai7=');readln(nilai[7]);
write('nilai8=');readln(nilai[8]);
write('nilai9=');readln(nilai[9]);
write('nilai10=');readln(nilai[10]);
jm:=nilai[1]+nilai[2]+nilai[3]+nilai[4]+
nilai[5]+nilai[6]+nilai[7]+nilai[8]+nilai[9]+nilai[10];
rata:=jm/10;
writeln;
writeln(jumlah =',jm:9:2);
(rata =',rata:9:2);
end.

output

menghitung rata-rata 10 buah nilai
nilai1= 50
nilai2= 55
nilai3= 60
nilai4= 50
nilai5= 55
nilai6= 60
nilai7= 55
nilai8= 50
nilai9= 60
nilai10= 65
jumlah= 560
rata-rata= 56

Array adalahaderetan rinci data yang mempunyai tipe data yang sjnis shingga mmungkinkan pada saat yang bersamaan menampung sejumlah data
macam array: a. Array berdimensi 1 : trdiri satu kolom atau satu baris
b. Array berdimensi dua : terdiri m kolom atau m baris
c. Array berimensi tinggi

Type Array : char,byte,string