Bài 1: Viết chương trình nhập vào mảng 1 chiều không quá 1000 phân tử là các số nguyên a, In ngược mảng vừa nhập b, In ra màn hình các số chia hết cho 2 và chia hết cho 5 c, Tính tổng các phần tử lẻ có chỉ số chẵn

hoangthaonguyen04012000

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

lelinhb8ts1

uses crt;

var n,i,tong:integer;

a:array[1..1000] of integer;

BEGIN

clrscr;

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

for i:=1 to n do

begin

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

readln(a[i]);

end;

write('IN RA:');

for i:=1 to n do write(a[i],' ');

writeln;

write('Cac so chia het cho 2 va chia het cho 5:');

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 5=0) then

write(a[i]);

writeln;

tong:=0;

for i:=1 to n do

if (a[i] mod 2=1) and (i mod 2=0) then

tong:=tong+a[i];

write('Tong cac phan tu le co chi so chan:',tong);

readln

END.

Chúc bạn học tốt!

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

382756483151927

uses crt;

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

n,i,s: integer;

begin

clrscr;

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

for i:=1 to do

begin

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

if (i mod 2=0) and (a[i] mod 2<>0) then s:=s+a[i];

end;

write ('mang nguoc la: ');

for i:=n downto 1 do write (a[i],' ');

writeln;

write ('cac so chia het cho 2 va 5 la: ');

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 5=0) then write (a[i],' ');

writeln ('tong cac phan tu le co chi so chan: ',s);

readln;

end.

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

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

Ai giúp mình được iu luôn =)))))

Đốt cháy hỗn hợp gồm 3,1g P và 9,6g S trong bình chứa 13,44 lít Oxi ở đktc. a) Viết PTHH của các phản ứng. b) Chất nào còn dư sau phản ứng? c) Tính khối lượng các oxit tạo thành.

Dịch 1)Làm thật nhanh 2)Nguy hiểm

New Zealand is a/an _____ .A. country speaking English B. country English spoken C speaking English country D.English speaking country

Trời phù hộ lão có phải câu rút gọn không không cần giải thích nhưng chắc chắn phải đúng

Hai máy bay có khối lượng như nhau. Một chiếc máy bay ở độ cao 2km với vận tốc 200km/h. Chiếc thứ hai bay ở độ cao 3000m với vận tốc 100m/s. Hỏi máy bay nào có cơ năng lớn hơn.

Giúp mình nhanh nhất có thể nhé. Làm ơn. Ko cần đúng đâu ah, ẩu cx đc... Mình đg rất gấp!

Giúp mình, mình vote 5*. Cảm ơn nhiều

Bài 1 a) Tính độ dài cạnh huyền của một tam giác vuông cân biết cạnh góc vuông bằng 5cm b) Tính độ dài cạnh góc vuông của một tam giác vuông cân biết cạnh huyền bằng2√2m Bài 2 a) Một tam giác vuông có cạnh huyền bằng 20cm, độ dài các cạnh góc vuông tỉ lệ với 3 và 4. Tính độ dài các cạnh góc vuông đó b) Tính các cạnh của một tam giác vuông biết tỉ số các cạnh góc là 5:12, chu vi tam giác bằng 60

mong có ai chỉ cho thuyết minh về danh nhân trần phú ở hà tĩnh nha giúp vs xin luôn đó ai làm dc cho ctlhn ạ huuhuhuhu

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