OPTADS360
ATNETWORK
ADS_ZUNIA
YOMEDIA
Banner-Video
IN_IMAGE

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

  bởi Nguyễn Thị Thanh 17/11/2021
ADMICRO/lession_isads=0

Câu trả lời (1)

  • 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
 
 

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

NONE
OFF

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