uses crt;

var a:array[1..100]of integer;

i,n,t,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

ln:=a[1];

for i:=1 to n do 

begin

t:=t+a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(t);

writeln(ln);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,t,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

ln:=a[1];

for i:=1 to n do 

begin

t:=t+a[i];

if ln<a[i] then ln:=a[i];

end;

writeln(t);

writeln(ln);

readln;

end.

Program Tinh_trungbinhcong;

           Uses CRT;

           Var a,b: Byte; TBC: Realn -> SỬA:  Var a,b: Byte; TBC: Real;

           Begin

                     Clrscr; 

                     Write('Nhap gia tri a = ');Readln(a);

                     Write('Nhap gia tri b = ');Radln(b);

                     TBC := (a + b)/2;

                     Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2);                           Readln;

           End.

a) Đổi \(3GB=3072MB\)

=> Số tệp hình ảnh có thể lưu trữ được là:

\(\dfrac{3072}{12}=256\) (tệp hình ảnh)

b) Lượng dung lượng để lưu 50 văn bản là:

\(20.50=1000\left(MB\right)\)

Lượng dung lượng còn lại là:

\(3072-1000=2072\left(MB\right)\)

Số lượng tệp âm thanh có thể lưu trữ là:

\(\dfrac{2072}{15}=138\dfrac{2}{15}\)

Vì số lượng tệp âm thanh là số nguyên nên có thể lưu trữ 138 tệp âm thanh

Số lượng tệp hình ảnh có thể lưu đc là 250 ảnh

uses crt;

var a:array[1..10000] of longint;

var i,n,d,k:longint;

begin

writeln('nhap n=');read(n);

for i:=1 to n do

begin

writeln('a[',i,']=');read(a[i]);

end;

for i:=1 to n do d:=d+a[i];

k:=1;

for i:=1 to n do begin if k<a[i] then k:=a[i]; end;

writeln('tong=',d);

writeln('gtln=',k);

readln;

end.