Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Võ Thu Hằng

viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau 

A nhập mảng 

B in mảng 

C đếm xem có bao nhiêu phần tử = 0 trong dãy 

D tính tổng các phần tử chẵn trong dãy 

giúp vs ạ 

Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:51

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=1000);

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until abs(a[i])<=1000;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

  if a[i]=0 then inc(dem);

writeln('So phan tu bang 0 la: ',dem);

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu chan la: ',t);

readln;

end. 


Các câu hỏi tương tự
Trần Cương
Xem chi tiết
Dương Mạnh Hoàng
Xem chi tiết
Lê thị khánh chi
Xem chi tiết
Khang nguyễn
Xem chi tiết
Benny
Xem chi tiết
VŨ MINH HOÀNG
Xem chi tiết
Lee Jihoon
Xem chi tiết
Miru Senpai
Xem chi tiết
Thu Hiền
Xem chi tiết