Viết chương trình: -> lưu D:\8?\ONTAP2.PAS 1. Nhập một dãy số nguyên có N phần tử 2. Xuất ra màn hình dãy số vừa nhập. 3. Tính tổng của các phần tử dương có trong dãy. 4. Tính tổng của các phần tử chẵn có trong dãy. 5. Tính tổng các phần tử chia hết cho 5 trong dãy. 6. Xuất ra mà

dodaihoc15122000

2 năm trước

Viết chương trình: -> lưu D:\8?\ONTAP2.PAS 1. Nhập một dãy số nguyên có N phần tử 2. Xuất ra màn hình dãy số vừa nhập. 3. Tính tổng của các phần tử dương có trong dãy. 4. Tính tổng của các phần tử chẵn có trong dãy. 5. Tính tổng các phần tử chia hết cho 5 trong dãy. 6. Xuất ra màn hình phần tử lớn nhất trong dãy trên. Làm giúp mình nha mng

Loga Sinh Học lớp 12

0 lượt thích 8 xem

1 trả lời

Thích Trả lời

lena

uses crt;
var A:array[1..1000] of integer;
i,n,sd,sch,s5,max:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i]>0 then sd:=sd+A[i];
if A[i] mod 2 = 0 then sch:=sch+A[i];
if A[i] mod 5 = 0 then s5:=s5+A[i];
end;
for i:=1 to n do write(A[i]:4);
writeln;
max:=A[1];
for i:=2 to n do if A[i]>max then max:=A[i];
write('Tong cua cac phan tu duong la: ',sd);
writeln;
write('Tong cua cac phan tu chan la: ',sch);
writeln;
write('Tong cua cac phan tu chia het cho 5 la: ',s5);
readln
end.

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

hongnhung86

program ct;

uses crt;

var i,n,tong,sochan,s,max:integer;

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

begin

clrscr;

write('nhap so phan tu:=');readln(n);

for i:=1 to n do

begin

write('nhap mang a[',i,']:=');readln(a[i]);

end;

(3)

tong:=0;

for i:=1 to n do

if a[i] >0 then tong:=tong+a[i];

writeln('tong cac so duong',tong);

(4)

sochan:=0;

if a[i] mod 2=0 then sochan:=sochan+a[i];

writeln('tong cac so chan la',sochan);

(5)

s:=0;

for i:=1 to n do

if a[i] mod 5=0 then s:=s+a[i];

write('tong cac phan tu chia het cho 5 la',s);

(6)

max:=a[1];

for i:=2 to n do

if max<[i] them max:=a[i];

writeln('phan tu lon nha la',max);

readln

end.

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

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

pháp luật có vai trò như thế nào,kể tên đặc điểm của pháp luật.nêu đặc điểm nội dung của tính bắt buộc

Tìm một số biết rằng lấy số đó chia cho 5 thì dc tích của 2 và 3

Bài 1:Viết số thập phân thích hợp vào chỗ trống : a) 5km100m= ..... km. b)9tấn 200kg =....tấn 428m=…. km. 50tấn 55kg = .... tấn 25m 50cm = .... m. 2 tạ 48kg =…. yến 12m431mm = ... dm. 1670yến = ... Tạ Bài 2 : Viết đơn vị đo thích hợp vào chỗ trống : a) 7001kg = 79,01 ... = 7,001... 450g = 0,45 ... = 4,5... = 45... 55yến =0,55... = 5,5 ...=550... 3 57tạ = 0,375 ... = 35,7...= 3570... b) 50dm = 0,5...= 0,05...=0,005... 19,92m = 199,2 ....= 1,992... = 0,1992.... 35,2cm = 3,52...= 0,352...= 0,0352 ... 4,88km = 48,8... =4880.... Ai nhanh mình tick ✔ nhoa !! Thank 😍😍 Giải 2 bài lun nhoa

cho biểu thức A= 2n-3/n-1 a, tìm điều kiện để a là phân số b, Với giá trị nào của n thì a là số nguyên

Viết đoạn văn tả về hình ảnh Bác Hồ trong bài thơ "Đêm nay Bác không ngủ''Dài chút nha!Thank

Giúp mình vs Càng nhiều ý tưởng càng tốt nha Mình cần gấp lắm 😭😭😭 Các anh chị thần đồng ơi

. Viết đoạn văn NLXH (khoảng 2/3 trang giấy) về những vấn đề sau: 1. Suy nghĩ về ý nghĩa, vai trò của tinh thần lạc quan trong cuộc sống của mỗi con người. 2. Suy nghĩ về ý thức, trách nhiệm của thế hệ trẻ hôm nay trong công cuộc xây dựng và phát triển đất nước.

1. cho 1.2g h2s vào dd chứa 16,8g KOH thì thu được dd A a. cho biết trong A chứa muối nào ? tại sao? b. tính khối lượng của muối thu được trong A 2.cho 6,8g h2s vào 200ml dd NAOH 2M thì thu được dd X a. cho biết trong X chứa muối nào? tại sao b. tính khối lượng của muối thu được trong X c. tính CM của muối trong X biết thể tích dd thay đổi không đáng kể

Giúp câu 143 với hộ mk cả câu 145 và 146 cả 147 nha mk cảm ơn nhiều

chân yếu tay mềm .hãy tìm câu ngược lại với câu trên

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