1. Viết chương trình nhập vào dãy gồm n phần tử. + Sau đó in ra màn hình các phần tử vừa nhập + in ra các phần tử chẳn theo thứ tự tăng dần + in các ptu lẻ theo thứ tự giảm dần + Tính tổng các phần tử. Viết chương trình nhập vào dãy gồm n phần tử sau đó in ra màn hình các phần t

quyen1507

2 năm trước

1. Viết chương trình nhập vào dãy gồm n phần tử. + Sau đó in ra màn hình các phần tử vừa nhập + in ra các phần tử chẳn theo thứ tự tăng dần + in các ptu lẻ theo thứ tự giảm dần + Tính tổng các phần tử. Viết chương trình nhập vào dãy gồm n phần tử sau đó in ra màn hình các phần tử chẵn theo thứ tự tăng dần và các phần tử lẻ theo thứ tự giảm dần rồi tính tổng các phần tử

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

ngoc11092000

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

n,i,s,:longint;

begin

write('nhap so phan tu');read(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

begin

write(a[i],' ; ');read(a[i]);

s:=s+a[i];

writeln('cac phan tu chan: ');readln;

if a[i] mod 2 =0 then writeln(a[i]);

end;

writeln('cac phan tu le la: ')

for i:=n downto 1 do

if a[i] mod 2=1 then writeln(a[i]);

writeln('tong cac phan tu la: ',s);

readln;

end.

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

cothamfriendly69

uses crt;

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

i,n,j,s,t: integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

writeln ('day vua nhap la: ');

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

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln ('cac phan tu chan theo thu tu tang dan la: ');

for i:=1 to n do

if a[i] mod 2=0 then write (a[i]:3);

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]<a[j] then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln ('cac phan tu le theo thu tu giam dan la: ');

for i:=1 to n do

if a[i] mod 2<>0 then write (a[i]:3);

writeln;

writeln ('tong cac phan tu la: ',s);

readln;

end.

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

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

Vẽ hình và làm cho mình. Mình đang cần gấp ạ.

Cho hình thang cân ABCD (AB // CD, AB < CD). AD cắt BC tại O. a) Chứng minh rằng tam giác AOB cân. b) Gọi I, J lần lượt là trung điểm của AB và CD. Chứng minh rằng I, J, O thẳng hàng. c) Qua M thuộc cạnh AC, vẽ đường thẳng song song với CD, cắt BD tại N. Chứng minh rằng: MNAB, MNCD là hình thang cân. Giải giúp mình với cần gấp

còn mụt bài nữa là xong òi nha giúp mình với ạ thks mng nhều helppppp

trả lời đầy đủ nhé mình sẽ cho 5 sao

Bài 1: Tìm x biết: 1, (x-3)(x^2+3x+9)+x(x+2)(2-x)=1 2,(x+1)^3-(x-1)^3-6(x-1)^2=-10 3,(x-1)(x^2+x+1)-x(x-2)(x+2)=5 4,x^3_27x-9x^2-27=0 5,x^3+6x^2+12x+8=0 6,(x-1)^3-(x+3)(x^2-3x+9)+3(x^2-4)=2 giải nhanh giúp mình nha, mình cần gấp!!!!

vẽ anime đi vot 5 sao nhé bạn làm đượn nhé

Mn giúp mk giải bài này với ạ :)

Vẽ đậu mầm lo lắng hoặc sợ hãi NL: Hà Nội đã đi học lại zùi

`(x-1)(x-3)(x-4)(x-5)+(x-3)(x-6)(x+8)+(x+18)(x+19)+(x-3)^3-(x-9)^3` Rút gọn nào =))

Vẽ Anime chán đi, full màu, nam nữ cũng được, nhưng ảnh phải nét phải đẹp nhé Hơn 1h rồi mà nõ vẫn ko hiện lên

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