Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nguyễn minh nguyệt

1,Nhập vào một dãy các số nguyên và nhập trị x,rồi đếm xem trong dãy có mặt bao nhiêu số x?

2, Viết chương trình nhập vào một dãy các số nguyên và đếm số các số dương,âm bằng không của dãy

3,Viết chương trình nhập vào một dãy các số nguyên,tính tổng bình phương của các số dương trong dãy

Nguyễn Trung Hiếu
1 tháng 5 2019 lúc 16:09

Câu 1:
uses crt;
var d,i,n:longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
write('Nhap x: ');readln(x);
for i:=1 to n do
if a[i]=x then inc(d);
write(d,' so');
readln
end.

Nguyễn Trung Hiếu
1 tháng 5 2019 lúc 16:14

Câu 2:
uses crt;
var d,i,n,d1,d2:longint;
a:array[1..1000000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
for i:=1 to n do begin
if a[i]>0 then inc(d) else
if a[i]<0 then inc(d1) else
if a[i]=0 then inc(d2); end;
writeln('Co ',d,' so duong');
writeln('Co ',d1,' so am');
write('Co ',d2,' so 0');
readln
end.

Nguyễn Trung Hiếu
1 tháng 5 2019 lúc 16:17

Câu 3:
uses crt;
var s,i,n:longint;
a:array[1..10000000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
write('a[',i,']= '); readln(a[i]); end;
for i:=1 to n do
if a[i]>0 then s:=s+a[i]*a[i];
write('Tong binh phuong cac so duong la: ',s:0:0);
readln
end.


Các câu hỏi tương tự
Thiện
Xem chi tiết
Ne Su
Xem chi tiết
Vỹ Thiên
Xem chi tiết
Đinh Trần Thiên Phú 8A2
Xem chi tiết
Enli Nguyễn
Xem chi tiết
nguyễn minh nguyệt
Xem chi tiết
Lê Quang Ngọc
Xem chi tiết
Đỗ thị linh
Xem chi tiết
trần thị anh thư
Xem chi tiết