Giúp mik vs ạ đang cần gấp Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn

Giúp mik vs ạ đang cần gấp
Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím. 2) tính tổng và trung bình cộng các phần tử của dãy số

0 bình luận về “Giúp mik vs ạ đang cần gấp Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn”

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

          n,i,X : integer;

    begin

    X:=0;

    write(‘do dai cua day so la:’);readln(n);

    while (n<0) or (n>=50) do begin

    Writeln(Hay nhap lai n=’);readln(n);

    for i:=1 to n do begin

    readln(A[i]);

    X:=X+A[i];

    end;

    Writeln(‘Tong cac phan tu cua day so la:’,X);

    Writeln(‘Trung binh cong cac phan tu cua day so la:’, X/n);

    readln

    end.

    (Mik chưa KT lỗi đâu nha)

    Bình luận
  2. var A:array[1..100]  of integer;

          n,i,X : integer;

    begin

    X:=0;

    write(‘do dai cua day so la:’);readln(n);

    while (n<0) or (n>=50) do begin

    Writeln(Hay nhap lai n=’);readln(n);

    for i:=1 to n do begin

    readln(A[i]);

    X:=X+A[i];

    end;

    Writeln(‘Tong cac phan tu cua day so la:’,X);

    Writeln(‘Trung binh cong cac phan tu cua day so la:’, X/n);

    readln

    end.

    Bình luận

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