Câu 1:

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

          n,i:byte;

b) var A:array[1..100] of byte;

          n,i:byte;

c) var diem:array[1..50] of real;

          n,i:byte;

d) var dayso:array[1..12] of integer;

          n,i:byte;

Câu 2:

program max_min;

uses crt;

var A:array[1..10000] of integer;

      n,i,max,min:integer;

begin

      clrscr;

      write('Nhap N: ');  readln(n);

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

            end;

      max:=A[1];  min:=A[1];

      for i:=1 to n do

            begin

                  if A[i]>max then max:=A[i];

                  if A[i]<min then min:=A[i];

            end;

      writeln('So nho nhat la: ',min);

      writeln('So lon nhat la: ',max);

      readln;

end.

Câu 3:

progra tong_day;

uses crt;

var A:array[1..10000] of integer;

      n,i,t:integer;

begin

      clrscr;

      write('Nhap N: ');  readln(n);

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

            end;

      t:=0;

      for i:=1 to n do t:=t+A[i];

      writeln('Tong cac phan tu cua day so la: ',t);

      readln;

end.

Câu 1:

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

b. A[1]:=18;

c. var diem:array[1..50]of real;

d. dayso[12]:=88;

Câu 2:

uses crt;
var n,i,max,min:longint;a:array[1..1000000]of longint;
begin
    clrscr;
    write('Nhap so luong phan tu: ');readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': ');readln(a[i]);
        end;
    max:=a[1];min:=a[1];
    for i:=2 to n do
        begin
            if a[i]>max then max:=a[i];
            if a[i]<min then min:=a[i];
        end;
    writeln('So lon nhat: ',max);
    write('So nho nhat: ',min);
    readln
end.

Câu 3:

uses crt;
var n,i,s:longint;a:array[1..1000000]of longint;
begin
    clrscr;
    write('Nhap so luong phan tu: ');readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': ');readln(a[i]);
            inc(s,a[i]);
        end;
    write('Tong: ',s);
    readln
end.