Bài 1: nhập vào n phần tử của mảng và in ra các phần tử đó bài 2: nhập vào n phần tử của mảng in ra màn hình giá trị lớn nhất của mảng vừa nhập vào

0 bình luận về “Bài 1: nhập vào n phần tử của mảng và in ra các phần tử đó bài 2: nhập vào n phần tử của mảng in ra màn hình giá trị lớn nhất của mảng vừa nhập vào”

1. bài 1

   program bt;

   ues crt;

   var i,n:integer;

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

   begin clrscr;

   Writeln(‘nhap n’);

   readln(n);

   for i:=1 to n do

   begin

   writeln(‘a[‘,i,’]=’);

   readln(a[i]);

   end;

   readln;

   end.

   bai 2

   Đoạn đầu làm tương tự phần trên và bạn cần thêm biến max :integer ở phần khai báo nữa ….

   ……..

   readln(a[i]);

   end;

   max:=a[1];

   for i:=1 to n do if max>a[i] then max:=a[i];

   writeln(max);

   readln;

   end.

   bài 3

   làm tương tự bài 2 thay max=min và max>a[i] thành min<a[i];

   bài 4

   uses crt;

   var i,n,t :integer;

   tb:real;

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

   begin clrscr;

   t:=0;tb:=0;

   readln(n);

   for i to n do 

   begin

   writeln(‘a[‘,i,’]=’);

   readln(a[i]);

   end;

   for i := 1 to n do

   t:=t+a[i];

   tb:=tb+t/n;

   writeln(tb:4:1);

   readln;

   end.

   Bình luận

2. Hướng dẫn trả lời:

   Bài 1:

   Program So_phan_tu;

   Uses crt;

   Var a  : array [1..1000] of real;

         N,i : integer;

   Begin

   Clrscr;

   Write(‘nhap so phan tu cua mang: ‘); readln(N);

   For i:=1 to N do

     Begin

      Write(‘Nhap gia tri cua mang a[‘,i,’]: ‘); readln(a[i]);

     End;

   For i:=1 to N do

     Writeln (‘Gia tri cua mang thu ‘,i,’ la: ‘,a[i]);

   readln;

   End.

   Bài 2:

   Program So_lon_nhat;

   Uses crt;

   Var a : array [1..1000] of real;

     max : real;

       i,N : integer;

   Begin

   Clrscr;

   Write(‘nhap so phan tu cua mang: ‘); readln(N);

   For i:=1 to N do

     Begin

      Write(‘a[‘,i,’]: ‘); readln(a[i]);

     End;

   max:=0;

   For i:=1 to N do

      If max<a[i] then max:=a[i];

   Writeln(‘So lon nhat la: ‘,max);

   Readln;

   End.

   Bài 3:

   Program So_nho_nhat;

   Uses crt;

   Var a : array [1..1000] of real;

     min : real;

       i,N : integer;

   Begin

   Clrscr;

   Write(‘nhap so phan tu cua mang: ‘); readln(N);

   For i:=1 to N do

     Begin

      Write(‘a[‘,i,’]: ‘); readln(a[i]);

     End;

   max:=0;

   For i:=1 to N do

      If min>a[i] then min:=a[i];

   Writeln(‘So nho nhat la: ‘,min);

   Readln;

   End.

   Bài 4:

   Program So_trung_binh;

   Uses Crt;

   Var a : array [1..1000] of real;

        TB : real;

        n,i : integer;

   Begin

        Clrscr;

        Write (‘Nhap so phan tu cua mang: ‘);

        Read (n);

        TB:=0;

        For i :=1 to n do

             Begin

                  Write (‘Nhap gia tri mang thu ‘,i,’: ‘);

                  Read (a[i]);

                  TB:=TB+a[i];

             End;

        TB:=TB/n;

        Writeln (‘gia tri trung binh cu ‘,n,’ mang là: ‘,TB:2:1);

   readln;

   End.

   Bình luận