viết chương trình thực hiện các yêu cầu sau : Nhập các phần tử của mảng , In các phần tử của mảng , Tìm giá trị lớn nhất, Tìm giá trị nhỏ nhất, Tỉnh

viết chương trình thực hiện các yêu cầu sau : Nhập các phần tử của mảng , In các phần tử của mảng , Tìm giá trị lớn nhất, Tìm giá trị nhỏ nhất, Tỉnh tổng các phần tử dương hoặc âm

0 bình luận về “viết chương trình thực hiện các yêu cầu sau : Nhập các phần tử của mảng , In các phần tử của mảng , Tìm giá trị lớn nhất, Tìm giá trị nhỏ nhất, Tỉnh”

  1. program tra_loi;
    Uses Crt;
    Var spt,max,min,tongduong,tongam,so,i:longint;
    arr: array[1..10000000] of longint;
    Begin
            clrscr;
            max:=0; tongduong:=0; tongam:=0;
            write(‘Nhap so phan tu: ‘); readln(spt);
            for i:=1 to spt do
            begin
                    write(‘Nhap phan tu thu ‘,i,’:’); readln(so);
                    arr[i]:=so;
                    if (max<so) then max:=so;
                    if (i=1) then min:=so;
                    if (min>so) then min:=so;
                    if (so>0) then tongduong:=tongduong+so;
                    if (so<0) then tongam:=tongam+so;
            end;
            write(‘Cac so:’);
            for i:=1 to spt do write(arr[i],’ ‘);
            writeln;
            writeln(‘So lon nhat: ‘,max);
            writeln(‘So nho nhat: ‘,min);
            writeln(‘Tong so duong: ‘,tongduong);
            writeln(‘Tong so am:’, tongam);
            readln;
    End.

    Bình luận
  2. program Mang;

    uses crt;

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

          n,i,max,min,T1,T2: integer;

    Begin

             clrscr;

             write(‘Nhap so phan tu: ‘); readln(n);

             for i:=1 to n do

             begin

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

             end;

             write(‘Cac phan tu trong mang: ‘);

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

             writeln;

             max:=1; min:=1;

             for i:=1 to n do

             begin

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

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

                      if A[i]>0 then T1:=T1+A[i];

                      if A[i]<0 then T2:=T2+A[i];

             end;

             writeln(‘Gia tri lon nhat: ‘,max);

             writeln(‘Gia tri nho nhat: ‘,min);

             writeln(‘Tong cac phan tu duong = ‘,T1);

             write(‘Tong cac phan tu am = ‘,T2);

             readln

    End.

    Bình luận

Viết một bình luận