Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khánh Linh

Lập trình giải bài toán sau Nhập 1 mảng gồm N số nguyên từ bàn phím 1.In mảng vừa nhập,mỗi mảng cách nhau 5 vị trí 2.In ra tất cả các số dương trong mảng 3.Tính tổng các số chia hết cho 3 4.Sắp xếp mảng theo chiều giảm dần

Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 20:07

uses crt;

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

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

begin

clrscr;

readln(n);

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

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

writeln;

writeln('Cac so duong la: ');

for i:=1 to n do if (a[i]>0) then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t+a[i];

writeln(t);

for i:=1 to n-1 do 

  for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

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

readln;

end.


Các câu hỏi tương tự
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Không tên
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Hoàng Phi Kim Huệ
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Trần Thị Thèo Lèo
Xem chi tiết