Viết công thức nhập vào mảng A gồm n số nguyên ( A<=100) a, tính tổng các phần tử của mảng b, đếm xem có bao nhiêu phần tử chia hết cho 5 c, sắp xếp mảng dưới dạng tăng dần d, hiện các kết quả ra màn hình Gấp giúp minh nhanh với . Sắp ktra rồi

xuanmai0258

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

huantran2605

program mangnha;

uses crt;

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

n,i,t,j,tg,d:integer;

begin

clrscr;

write('Nhap so luong phan tu: ');

readln(n);

write('Nhap tung phan tu cua mang A:');

for i:=1 to n do

begin

write('Nhap A[',i,']: ');

readln(A[i]);

end;

t:=0;

for i:=1 to n do

t:=t+A[i];

d:=0;

for i:=1 to n do

if A[i] mod 5=0 then inc(d);

for i:=1 to n-1 do

for j:=i+1 to n do

if A[i]>A[j] then

begin

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

writeln('Tong cac phan tu cua mang la: ',t);

writeln('Co ',d,' phan tu cua mang chia het cho 5');

write('Day sau khi sap xep tang dan la: ');

for i:=1 to n do

write(A[i],' ');

readln

end.

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

hanangel123

Xin hay nhất ạ

#Chương trình ngắn

#No copy

uses crt;
var i,n,j,t5,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
t:=t+a[i];
if a[i] mod 5=0 then inc(t5);
for j:=1 to i-1 do if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
writeln('Tong cac phan tu cua mang: ',t);
writeln('Co ',t5,' phan tu chia het cho 5');
writeln('Mang duoi dang tang dan: ');
for i:=1 to n do write(a[i],' ');
readln
end.

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

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

Giúp mik giải 2 câu này vs mik cần gấp để học ôn thi , mik sẽ vote 5 sao ><

Vật sáng AB có dạng mũi tên cao 2cm được đặt vuông góc với trục chính của một thấu kính hội tụ có tiểu cự 30cm, điểm A nằm trên trục chính và cách thấu kính 20cm. 1. Hãy vẽ ảnh của vật AB tạo bởi thấu kính hội tụ. Vận dụng kiến thức hình học hãy tính khoảng cách từ ảnh đến thấu kính và chiều cao của ảnh. 2. Từ B hãy vẽ một tia tới cắt thấu kính tại điểm J sao cho tia ló kéo dài qua điểm A. Tìm khoảng cách từ quang tâm đến điểm J

Có mấy loại cơ ,sự khác nhau giữa các loại cơ

Trả lời hết 3 câu hỏi theo đề ạ

cho 8,8 g Zn và Cu tác dụng với H2SO4 sau phản ứng thu được chất rắn A và 2,24 khí hidro ở điều kiện tiêu chuẩn. a ,viết phương trình hóa học b, tính khối lượng các chất trong hỗn hợp ban đầu

Nhóm nguyên tử và ion nào chứa 10 electron

một cửa hàng bán 160 kg gạo . Trong đó 65% là gạo tẻ . Hỏi cửa hàng đó bán bao nhiêu kg gạo nếp

vì sao phải giữ gìn nhà ở ngăn nắp?

II. Read the following sentences and put the verbs in brackets in either the Past Simple ur the Past Continuous. Put any other words in brackets in the correct place. 1. As Sophie fk (walk) up Regent Street she Besnt (meet) an old friend from college. 2. When (father/arrive) yesterday? nm(arrive) late. The train (be) delayed due to an accident. 3. Who (you/ speak) to on the phone when I (come)in? 4. Mary (read) in bed when she (hear) a strange noise downstairs. 5. When Mr. Lawrence (leave) home at 8.30 this morning, the sun (shine) brightly. However, by 10 o'clock it (rain) heavily. 6. Ben (arrive) at Susan's house a little before 11 a.m., but she (not/be) there. She (study) at the library. (be) trapped on 7. The fireman (rescue) a 75-year-old woman who the second floor of the burning building. 8. (you/do) any shopping yesterday? (fall) and (hurt) herself when she 9. Yesterday Jane (ride) her bicycle. (knock) on his door? 10. What dees BtA (Peter / do) when you 11. Helen (wear) her dress to the party last night.

trong quá trình tìm đường cứu nước của bác thì có các tổ chức cách mạng nào được thành lập? các tổ chức cách mạng đó hoạt động ra sao

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