Viết Chương Trình Nhập Vào Mảng B Gồm N Phần Tử Kiểu Nguyên (n<

Tất cả Toán học Vật Lý Hóa học Văn học Lịch sử Địa lý Sinh học Giáo dục công dân Tin học Tiếng anh Công nghệ Khoa học Tự nhiên Lịch sử và Địa lý quân võ đã hỏi trong Lớp 11 Tin học · 13:12 05/03/2022 Theo dõi Báo cáo

Viết chương trình nhập vào mảng B gồm n phần tử kiểu nguyên (n<=20).Viết chương trình in ra màn hình danh sách các phần tử có giá trị là lẻ hoặc có chỉ số là chẵn trong mảng.

Trả Lời (+5 điểm) Hỏi câu khác Hỏi chi tiết ...Xem thêm

Quảng cáo

2 câu trả lời 2236

PAM LION🦁 3 năm trước

Bài 1:

uses crt;var a:array[1..20]of integer;i,t:integer;beginclrscr;for i:=1 to 20 dobeginrepeatwrite('a[',i,']='); readln(a[i]);if a[i]<0 then writeln('ban da nhap sai, yeu cau ban nhap lai');until a[i]>=0;end;t:=0;for i:=1 to 20 doif (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];writeln('tong cac phan tu la so chan o vi tri le trong day la: ',t);readln;end.

Bài 2:

uses crt;var a:array[1..150]of longint;i,dem,n:integer;beginclrscr;write('n='); readln(n);if n<=150 thenbeginfor i:=1 to n dobeginrepeatwrite('a[',i,']='); readln(a[i]);if a[i]>=1000 then writeln('ban da nhap sai, yeu cau ban nhap lai');until a[i]<1000;end;{----------------------------------------------------------}dem:=0;for i:=1 to n doif a[i]>0 then inc(dem);writeln('so luong so duong trong day la: ',dem);end;readln;end.

0 bình luận Đăng nhập để hỏi chi tiết cao khánh phạm 3 năm trước

Bài 1:

uses crt;var a:array[1..20]of integer;i,t:integer;beginclrscr;for i:=1 to 20 dobeginrepeatwrite('a[',i,']='); readln(a[i]);if a[i]<0 then writeln('ban da nhap sai, yeu cau ban nhap lai');until a[i]>=0;end;t:=0;for i:=1 to 20 doif (a[i] mod 2=0) and (i mod 2=1) then t:=t+a[i];writeln('tong cac phan tu la so chan o vi tri le trong day la: ',t);readln;end.

Bài 2:

uses crt;var a:array[1..150]of longint;i,dem,n:integer;beginclrscr;write('n='); readln(n);if n<=150 thenbeginfor i:=1 to n dobeginrepeatwrite('a[',i,']='); readln(a[i]);if a[i]>=1000 then writeln('ban da nhap sai, yeu cau ban nhap lai');until a[i]<1000;end;{----------------------------------------------------------}dem:=0;for i:=1 to n doif a[i]>0 then inc(dem);writeln('so luong so duong trong day la: ',dem);end;readln;end.

0 bình luận Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn muốn hỏi bài tập?

Đặt câu hỏi

Câu hỏi hot cùng chủ đề

• Hàm cho giá trị bằng bình phương của x là :

  A. Sqrt(x);

  B. Sqr(x);            

  C. Abs(x);

  D. Exp(x);