Vct nhâp vào số nguyên Dương N và dãy số nguyên A1, A2, ...AN thực hiện các yêu cầu sau: a, đếm và đưa ra các phần tử có giá trị âm b, tính tổng các phần tử có giá trị lớn hơn 100 và chia hết cho 5 Mọi ngừoi giúp em với ạ em cảm ơn

963687280696114

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

nhudinh171

program h247;
var a:array[1..1000] of integer;
i, n, tong, dem: integer;
begin
write('Nhap n '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] ');
readln(a[i]);
end;
{a)}

write('Cac phan tu co gia tri am la ');
for i:=1 to n do
if a[i] < 0 then
begin
dem:=dem+1;

write(a[i], ' ');

end;

write('Co ', dem, ' so co gia tri am') ;
{b)}
for i:=1 to n do
if (a[i] > 100) and (a[i] mod 5 = 0) then tong:=tong+a[i];
write('Tong cac so lon hon 100 va chia het cho 5 la ', tong);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

thanhniennghiemkhac2001

program ct

uses crt;

var A:array[1..1000] of integer;

i,N,d:integer;

S:longint;

begin clrscr;

write('Nhap so nguyen duong N: '); readln(N);

for i:=1 to N do

begin

writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

S:=0;

for i:=1 to N do

begin

if A[i]<0 then inc(d);

if (A[i]>100) and (A[i] mod 5=0) then S:=S+i;

end;

writeln('Co ',d,' phan tu co gia tri am: ');

for i:=1 to n do

if A[i]<0 then write(A[i]:3);

writeln('Tong cac phan tu lon hon 100 va chia het cho 5 la: 'S);

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Thả một quả cầu bằng đồng đc đun nóng đến nhiệt độ 120 độ C vào 0,5kg nc ở 30 độ C .Sau một thời gian nhiệt độ ciluar quả cầu và nc đều bằng 40 độ c .Cho rằng quả cầu bà nước chỉ truyền nhiệt cho nhau .Biết nhiệt dung riêng của đồng và nc lần lượt là 380.10 ^6 J/ kg ,4200 J / kg .K a. Nhiệt độ của quả cầu và nc là bn khi cân bằng ? b.tính nhiệt lượng của nc thu vào ? c. Tính khối lượng nc của quả cầu

Cách chứng minh đồng quy trong tam giác

Các chính sách giáo dục và đào tạo, khoa học và công nghệ, văn hóa có mối quan hệ biện chứng, tác động qua lại lẫn nhau. hãy chỉ ra mối quan hệ giữa các chính sách này

Ở người cận thị , khoảng cách từ vật đến mắt bình thường mà không thấy được là do ảnh xuất hiện ? A. Trước màng lưới B. Trên điểm mù C. Trên điểm vàng D. Trên màng lưới Giúp mình câu hỏi này nhé mọi người và mình cần lời giải thích tại sai chọn ý đó nha

Cho (o,r) điểm A năm ngoái đường tròn.

Làm hô mình bài cuôi cùng mong các ban lam ho mai thi roi nhanh nha

giải giúp em bài 2b với ạ !!! em cảm ơn

Con đường hình thành PXCĐK , PXCĐK và PXKĐK, lấy VD thói quen tốt và phân tích con đường hình thành thói quen đó

Nêu các nguyên nhân làm suy giảm nguồn tài nguyên sinh vật. P/s: Nhớ ghi từng ý rút gọn ra nha. Đừng có ghi nguyên đoạn văn nha!

đặt tính rồi tính chứ ko đặt hàng ngang 75,816: 3,12

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến