coba html

program aray;

uses wincrt;

TYPE
  nilai = array[1..3] of integer;

Var
  x : integer;
  jumlah, rata_rata : real;
  a : nilai;
  
BEGIN

for x := 1 TO 3 DO
  BEGIN
    WRITE('Nilai Ke - ',x,' = ');
 READLN(a[x]);
    jumlah := jumlah + a[x];
  END;

 WRITELN('');
 WRITELN('Nilai Mahasiswa Ke 1 = ',a[1]);
 WRITELN('Nilai Mahasiswa Ke 2 = ',a[2]);
 WRITELN('Nilai Mahasiswa Ke 3 = ',a[3]);

 rata_rata := jumlah/3;
 WRITELN('Rata - Rata nya adalah ', rata_rata:0:2);
  
readln;  
end.

feed

TMPGEnc Video Mastering Works 5.0.3.29

The successor to the award-winning TMPGEnc 4.0 XPress is here! Supporting many input and output formats, detailed parameter settings, a fast and precise cut-edit function, video format conversion, compression, and material creation. This is TMPGEnc, the standard choice of encoding software, reborn in its latest version: TMPGEnc Video Mastering Works 5. It offers a completely new timeline and layer editing function, making it possible to not only create materials, but also bring creative, original video mastering and output to the best formats available.

Previous generations of encoders were used to compress high quality videos and making them small enough to fit in hard disk drives with small capacities, or often tasked to meet DVD-Video, Blu-ray Disc or other specific format requirements. While such needs still exist today, video sharing websites, mobile devices offering video playback, and other video viewing options have become the main and most often targeted use.