Viết chương trình nhập vào 1 mảng gồm 10 phần tử là số thực

0 bình luận về “Viết chương trình nhập vào 1 mảng gồm 10 phần tử là số thực”

1. program bai_tap;
   uses crt;
   var a:array[1..10] of integer;
   n,i:byte;
   s,max,min:integer;
   begin
   clrscr;
   write(‘nhap so luong phan tu cua mang: ‘);
   readln(n);
   for i:= 1 to n do
   begin
   write(‘nhap phan tu thu [‘,i,’]= ‘);
   readln(a[i]);
   end;
   {cau a) ======================}
   writeln(‘mang ban vua nhap la: ‘)
   for i:= 1 to n do
   write(a[i]:4);
   writeln;
   {cau b) ======================}
   s:=0;
   for i:= 1 to n do
   s:=s+a[i];
   writeln(‘tong cac phan tu trong mang la: ‘,s);
   {cau c) ======================}
   max:=a[1];
   for i:= 1 to n do
   if max < a[i] then max:=a[i];
   writeln(‘gia tri max la: ‘,max);
   {cau d) ======================}
   min:=a[i];
   for i:= 1 to n do
   if min > a[i] then min:=a[i];
   writeln(‘gia tri nho nhat la: ‘,min);

   readln
   end.

   Bình luận

2. program Mang;

   uses crt;

   var A:array [1..10] of real;

         i: integer;

   Begin

            clrscr;

            for i:=1 to 10 do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

            end;

            write(‘Mang vua nhap: ‘);

            for i:=1 to 10 do write(A[i],’  ‘);

            readln

   End.

   Bình luận