YOMEDIA
NONE

cho mảng a gồm n số n thuộc [5,-80] mỗi số nguyên có giá trị thuộc [100,-100]. Viết phương trình

A) nhập mảng A

B) xuất mảng A

C) tính tổng phần tử A

D) đếm số phần tử chia hết cho 5. Đưa kết quả ra màn hình

E) tính số phần tử chia hết cho 5. Đưa kết quả ra màn hình

F) đếm số phần tử chẵn. tính tổng phần tử chẵn

G) đếm số phần tử lẻ. tính tổng phần tử lẻ

H) đếm số phần tử âm. Tính tổng phần tử âm

I) đếm số phần tử dương. Tính tổng phần tử dương

J) tìm phần tử max. Chỉ số max

K) tìm phần tử min. Chỉ số min

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • My Le

    uses crt;

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

    i,n,t,dem,dem1,dem2,dem3,dem4,t1,t2,t3,t4,max,min:integer;

    begin

    clrscr;

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

    for i:=1 to n do

    begin

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

    end;

    for i:=1 to n do

    write(a[i]:4);

    writeln;

    t:=0;

    for i:=1 to n do

    t:=t+a[i];

    writeln('Tong cua mang A la: ',t);

    dem:=0;

    for i:=1 to n do

    if a[i] mod 5=0 then inc(dem);

    writeln('So phan tu chia het cho 5 la: ',dem);

    dem1:=0;

    t1:=0;

    dem2:=0;

    t2:=0;

    for i:=1 to n do

    begin

    if a[i] mod 2=0 then

    begin

    inc(dem1);

    t1:=t1+a[i];

    end

    else begin

    inc(dem2);

    t2:=t2+a[i];

    end;

    end;

    writeln('So phan tu chan la: ',dem1);

    writeln('Tong cac phan tu chan la: ',t1);

    writeln('So phan tu le la: ',dem2);

    writeln('Tong cac phan tu le la: ',t2);

    dem3:=0;

    t3:=0;

    dem4:=0;

    t4:=0;

    for i:=1 to n do

    begin

    if a[i]<0 then

    begin

    inc(dem3);

    t3:=t3+a[i];

    end;

    if a[i]>0 then

    begin

    inc(dem4);

    t4:=t4+a[i];

    end;

    end;

    writeln('So phan tu am la: ',dem3);

    writeln('Tong cac phan tu am la: ',t3);

    writeln('So phan tu duong la: ',dem4);

    writeln('Tong cac phan tu duong la: ',t4);

    max:=a[1];

    min:=a[1];

    for i:=1 to n do

    begin

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

    if min>a[i] then min:=a[i];

    end;

    writeln('Gia tri lon nhat cua day so la ',max);

    writeln('Chi so la: ');

    for i:=1 to n do

    if max=a[i] then write(i:4);

    writeln;

    writeln('Gia tri nho nhat cua day so la: ',min);

    writeln('Chi so la: ');

    for i:=1 to n do

    if min=a[i] then write(i:4);

    readln;

    end.

      bởi My Le 18/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