YOMEDIA
NONE

Sử dụng ngôn ngữ lập trình pascal, viết ct nhập mảng 1 chiều A gồm n phần tử (n

a, đếm và tính tổng các số chẵn trong mảng

b, nhập vào số nguyên K, tìm xem K có trong dãy hay không? Nếu có thì đưa ra các vị trí của nó trong dãy, nếu không thì thông báo" không tìm thấy"

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • hai trieu

    uses crt;

    var a,vtk:array[1..100]of integer;

    n,i,dem,t,k,kt,dem1:integer;

    begin

    clrscr;

    write('n='); readln(n);

    if (0<n) and (n<=100) then

    begin

    for i:=1 to n do

    begin

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

    end;

    {---------------------------cau-a---------------------}

    dem:=0;

    t:=0;

    for i:=1 to n do

    if a[i] mod 2=0 then

    begin

    inc(dem);

    t:=t+a[i];

    end;

    writeln('so luong so chan trong mang la: ',dem);

    writeln('tong cac so chan trong mang la: ',t);

    {-------------------------cau-b----------------------}

    write('k='); readln(k);

    kt:=0;

    dem1:=0;

    for i:=1 to n do

    if a[i]=k then

    begin

    kt:=1;

    inc(dem1);

    vtk[dem1]:=i;

    end;

    if kt=0 then writeln('khong tim thay')

    else begin

    writeln('cac vi tri cua ',k,' trong day la: ');

    for i:=1 to dem1 do

    write(vtk[i]:4);

    end;

    end

    else writeln('vui long nhap lai');

    readln;

    end.

      bởi hai trieu 19/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

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
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON