YOMEDIA
NONE

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số độ dài của dãy số cũng được nhập từ bàn phím?

câu 1: viết chương trình tính tổng, tích các số tự nhiên nhập từ bàn phím.

câu 2: viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. độ dài của dãy số cũng được nhập từ bàn phím.

p/s: mik ngu môn tin nhắm nhuôn, lên máy tính chỉ bt cày game thui. giúp mik nha mik đang cần gấp nhất là câu 2, trả lời đúng mik nhất định sẽ tick.haha

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Câu 1:

    program bt;

    uses crt;

    var a:array[1..1000] of integer;

    i,n,tong,tich:integer;

    begin

    clrscr;

    write('Do dai cua day la:'); readln(n);

    for i:=1 to n do

    begin

    write('a[',i,']='); readln(a[i]);

    end;

    tong:=0; tich:=1;

    for i:=1 to n do

    begin

    tong:=tong + a[i];

    tich:=tich*a[i];

    end;

    write('tong cac so tu nhien nhap tu ban phim:',tong);

    writeln;

    write('tich cac so tu nhien nhap tu ban phim:',tich);

    readln

    end.

    Câu 2:

    program bt;

    uses crt;

    var a:array[1..1000] of integer;

    i,n:integer;

    begin

    clrscr;

    write('nhap do dai day so:'); readln(n);

    writeln('nhap cac phan tu cua day:');

    for i:=1 to n do

    begin

    write('a[',i,']='); readln(a[i]);

    end;

    readln

    end.

      bởi Chàng's Trai's Song's Tử's 02/11/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
ATNETWORK
ON