YOMEDIA
NONE

Viết chương trình nhập mảng 1c gồm 200 pt thuộc kiểu nguyên sau đó a. tìm số dương đầu tiên và chỉ số của nó trong mảng b. tìm số dương cuối cùng và chỉ số của nó trong mảng bài 2 viết ct nhập mảng 1c gồm 100pt thuộc kiểu nguyên a. in ra màn hình danh sách các số chẳn b. in ra màn hình các số từ 1 đến 10

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • uses crt;

    var c:aray[1..200]of integer;

    i,vt1,vt2:integer;

    begin

    clrscr;

    for i:=1 to 200 do 

      begin

    write('C[',i,']='); readln(c[i]);

    end;

    for i:=1 to 200 do 

      if c[i]>0 then

    begin

    vt1:=i;

    break;

    end;

    if vt1=0 then writeln('Khong co so duong trong day')

    else writeln('So duong dau tien trong day la: ',c[vt1],' va chi so cua no la: ',vt1);

    for i:=200 downto 1 do 

      if c[i]>0 then 

    begin

    vt2:=i;

    break;

    end;

    if vt2=0 then writeln('Khong co so duong trong day')

    else writeln('So duong cuoi cung trong day la: ',c[vt2],' va vi tri cua no la: ',vt2);

    readln;

    end.

      bởi Phung Thuy 18/11/2021
    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