Cho Dãy Số Nguyên B Gồm N Phần Tử(N=500). In Ra Màn Hình Số ...

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý Hoàn Nguyễn Văn Hỏi từ APP VIETJACK Đã trả lời bởi chuyên gia đã hỏi trong Lớp 11 Tin học · 11:24 02/03/2022 Đã trả lời bởi chuyên gia Theo dõi Báo cáo Cho dãy số nguyên B gồm N phần tử(N=500). In ra màn hình số lượng số chia hết cho 5 trong dãy. Trả Lời (+5 điểm) Hỏi câu khác Lưu câu hỏi Lưu Hỏi chi tiết ...Xem thêm

Quảng cáo

1 câu trả lời 1902

Len Nguyễn 3 năm trước

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

  end;

t:=0;

for i:=1 to n do 

  if (a[i]<0) and (a[i] mod 5=0) then t:=t+a[i];

writeln('Tong cac so am chia het cho 5 la: ',t);

readln;

end.

0 bình luận Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

Gửi câu hỏi

Câu hỏi hot cùng chủ đề

• Đã trả lời bởi chuyên gia

  Hàm cho giá trị bằng bình phương của x là :

  A. Sqrt(x);

  B. Sqr(x);            

  C. Abs(x);

  D. Exp(x);