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 đã hỏi trong Lớp 11 Tin học · 11:24 02/03/2022 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 Hỏi chi tiết ...Xem thêm

Quảng cáo

1 câu trả lời 1888

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 muốn hỏi bài tập?

Đặt câu hỏi

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

• 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);