1, Viết chương trình tính tổng các số từ 1-N. N=10 => Kết quả=55 2, Viết chương trình nhập 1 dãy số.In ra màn hình số lớn nhất Mong mọi người giúp mìn

1, Viết chương trình tính tổng các số từ 1-N.
N=10 => Kết quả=55
2, Viết chương trình nhập 1 dãy số.In ra màn hình số lớn nhất
Mong mọi người giúp mình !

0 bình luận về “1, Viết chương trình tính tổng các số từ 1-N. N=10 => Kết quả=55 2, Viết chương trình nhập 1 dãy số.In ra màn hình số lớn nhất Mong mọi người giúp mìn”

  1. B1:
    Uses Crt;
    Var i,n,S:integer;
    Begin
    Clrscr;
    Write(‘Nhap N= ‘); Readln(n);
    S:=0;
    For i:= 1 to n do S:=S+i;
    Write(‘Vay tong cua day so tu 1 den ‘ ,n,’ la: ‘,S);
    Readln
    End.
    B2.1: Kiểu mảng real:
     Uses Crt;
    Var a:array[1..1000] of integer;
    max,i,n:integer;
    Begin
    Clrscr;
    Repeat
    Write(‘Nhap so ptu N vao: ‘); Readln(n);
    Until n>0;
    For i:= 1 to n do
    Begin
    Write(‘Nhap a[‘,i,’] vao:’); Readln(a[i]);
    End;
    max:=a[i];
    Write(‘So lon nhat trong day so la: ‘,max);
    Readln
    End.
    B2.2: Kiểu mảng fake
     Uses Crt;
    Var max,X,i,n:integer;
    Begin
    Clrscr;
    Repeat
    Write(‘Nhap so ptu N vao: ‘); Readln(n);
    Until n>0;
    For i:= 1 to n do
    Begin
    Write(‘Nhap X’,i,’ vao:’); Readln(X);
    End;
    max:=X;
    Write(‘So lon nhat trong day so la: ‘,max);
    Readln
    End.
    *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!! Đa tạ ;33
    *p/s: Hỏi và đáp, comment bên dưới

    Bình luận
  2. Câu 1:

    program Cau_1;

    uses crt;

    var n,i,T: integer;

    Begin

             clrscr;

             write(‘Nhap n: ‘); readln(n);

             for i:=1 to n do T:=T+i;

             write(‘Tong cac so tu 1 den ‘,n,’ = ‘,T);

             readln

    End.

    Câu 2:

    program Cau_2;

    uses crt;

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

          n,i,max: integer;

    Begin

             clrscr;

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

             max:=1;

             for i:=1 to n do

             begin

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

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

             end;

             write(‘So lon nhat: ‘,max);

             readln

    End.

    Bình luận

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