Viết chương trình tìm số dương và số âm trong các dãy só nguyên
Click để xem full hình
Trả lời (2)
-
uses crt;
type AI = array of integer;var m,l,k,i,j:integer;
temp:integer;
a:AI;
b: array [1..10000] of integer;
c: array [1..10000] of integer;
begin
clrscr;
write('nhap so luong phan tu mang: ');
readln(m);
setlength(a,m);
for i := low(a) to high (a) do
begin
write('nhap gia tri phan tu mang a[',i,']');
readln(a[i]);
end;
l:= 1;
k:= 1;
repeat
for j := low(a) to high (a) do
begin
if (a[j] > 0 ) then
begin
b[k] := a[j];
k := k + 1;
end
else if (a[j] < 0 ) then
begin
c[l] := a[j] ;
l := l +1;
end;
end;
until(j = i) ;
writeln('CAC GIA TRI AM :':9);
for i:= 1 to l -1 do write(c[i] :4 ) ;
writeln;
writeln('CAC GIA TRI DUONG :':9);
for i := 1 to k -1 do write (b[i]:4);
readln;
end.bởi Cao Minh Thành
24/12/2019
Like (0) Báo cáo sai phạm -
var
a:array[1..100] of integer;
i,n,d1,d2:integer;
begin
write('nhap vao n:');readln(n);
for i:=1 to n do
write('nhap vao phan tu a[',i,']:');
readln(a[i]);
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]);
writeln;
d1:=0;d2:=0;
for i:=1 to n do
if a[i]>0 then d1:=d1+1
else d2:=d2+1;
writeln('co ',d1,' so duong');
writeln('co ',d2,' so am');
readln
end.
bởi Phạm My
09/01/2020
Like (0) Báo cáo sai phạm
Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
nhập mảng số nguyên M phần tử (M<>0, M thuộc tập số tự nhiên) đếm số phần tử mà giá trị của nó chia hết cho 3 và 5 trong chương trình.
19/12/2022 | 0 Trả lời
-
trình bày các đặc điểm về khoá chính bảng?
24/12/2022 | 0 Trả lời
-
Viết chương trình kiểu mảng nhập 10 số in ra màn hình các số âm và số âm phải lẻ, đếm xem có bao nhiêu số lẻ
02/02/2023 | 0 Trả lời
-
Hãy viết chương trình trên Pascal, nhập vào 2 số và tính tổng 2 số đã nhập (ghi kết quả ra màn hình đồng thời ghi 2 số nhập từ bàn phím và tổng của chúng vào tệp “e:\tong2so.doc”).
05/03/2023 | 0 Trả lời
-
Lập chương trình nhập vào 2 chuỗi bất kỳ a, b(với chuỗi b là con của
chuỗi a, tức là trong chuỗi a có 1 phần giống chuỗi b). Sau đó tìm và in ra màn hình vị trí
đầu tiên tìm thấy chuỗi b trong chuỗi a.06/03/2023 | 0 Trả lời
-
Var a : array[0..50] of real
K:= 0
for i := 1 to 50 d
if a[i] > a[k] then k := i
Đoạn chương trình trên thực hiện công việc gì dưới đây?
A. Tìm phần tử nhỏ nhất trong mảng
B. Tìm phần tử lớn nhất trong mản
C. Tìm chỉ số của phần tử lớn nhất trong mả
D. Tìm chỉ số của phần tử nhỏ nhất trong mảng
14/03/2023 | 0 Trả lời
-
Viết chương trình nhập dãy số nguyên gồm 10 số đém có bao nhiêu số chia hết cho 5?
15/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 1 dãy số nguyên gồm n phân tử tính và viết ra màng hình tổng của số dương trong dãy. (nhập từ bàn phím số phần tử N và các phần tử trong dãy)
16/03/2023 | 0 Trả lời
-
"ABCS"; "?A"; "15.1"; "@THCS"
21.5; 22.6; 30.1; 62.8; 10; 3
"s"; "a"; "?"; "1.5"; "3"
15; 21; 98; 35; 22; 30
20/03/2023 | 0 Trả lời
-
viết chương trình python nhập xâu xoá tất cả các chữ số có trong xâu
23/03/2023 | 0 Trả lời
-
Một tệp văn bản có kích thước 50Kb. Bằng cách nào ta có thể truy cập trực tiếp vào byte thứ 1000 mà không cần đọc qua 999 byte đầu.
24/03/2023 | 0 Trả lời
-
viết chương trình nhập 1 số tự nhiên n từ bàn bàn phím kiểm tra xem n là số nguyên tố hay hợp số. Lưu ý nếu n-0 hoặc n-1 thì không phải là số nguyên tố cũng không phải là hợp số
30/04/2023 | 0 Trả lời
-
a, Viết các khai báo biến cần thiết.
b, Viết các thủ tục gắn tên tệp và mở tệp phù hợp.
c, Viết câu lệnh để đọc các số nguyên a từ tệp ‘DULIEU.INP’ rồi ghi các số không chia hết cho 7 và tổng của các số đó vào tệp ‘KCHIA7.TXT’.
07/05/2023 | 0 Trả lời
-
Nhập vào dãy số nguyên có 200 số. Hãy hiển thị ra màn hình những số chẵn?
08/05/2023 | 0 Trả lời
-
Viết chương trình C++ để nhập một số nguyên x và n. Tính giá trị của
t=x - 1/3!x3 + 1/5!x5 - 1/7!x7 + 1/9!x9+…+1/n!(xn).
14/07/2023 | 0 Trả lời
