Những câu hỏi liên quan
HN
Xem chi tiết
NT
31 tháng 12 2020 lúc 15:12

a) 

Input: Dãy n số nguyên 

Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương

b) 

Bước 1: Nhập n và nhập dãy số

Bước 2: dem←0; i←1;

Bước 3: Nếu a[i]>0 thì dem←dem+1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất dem

Bước 7: Kết thúc

Bình luận (0)
ML
31 tháng 12 2020 lúc 18:31

Input: Số nguyên N và dãy a1,a2,...,aN

Output: Số số nguyên có trong dãy

Thuật toán:

- Bước 1: Nhập N và dãy a1,a2,...,aN

- Bước 2: d←0; i←1;

- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc

- Bước 4: Nếu ai > 0 thì d←d+1;

- Bước 5: i←i+1, quay lại bước 3

Bình luận (0)
MB
Xem chi tiết
NN
Xem chi tiết
NT
8 tháng 3 2021 lúc 13:58

Bài 1: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x: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 write(a[i]:4);

readln;

end.

Bình luận (2)
DT
Xem chi tiết
DT
Xem chi tiết
TT
Xem chi tiết
H24
22 tháng 10 2021 lúc 15:00

Anser reply image

 
Bình luận (0)
VD
Xem chi tiết
LD
30 tháng 12 2020 lúc 5:55

uses crt;

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

n,i: integer;

sa,d: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

sa:=0;

d:=0;

for i:=1 to n do

if a[i] > 0 then d:=d+1 else if a[i] < 0 then sa:=sa+1;

writeln('Trong day co ',d,' so duong');

writeln('Trong day co ',sa,' so am');

readln

end.

Bình luận (0)
TN
Xem chi tiết
BT
29 tháng 12 2020 lúc 19:51

phần a

Bình luận (1)
BT
29 tháng 12 2020 lúc 19:52

phần b

Bình luận (0)
PB
Xem chi tiết
CT
26 tháng 12 2019 lúc 4:32

Chọn A.

Dãy số liệu thứ 2 có 2 số liệu khác với dãy số liệu 1 là số đứng ở vị trí đầu tiên và số đứng ở vị trí cuối cùng. Tuy nhiên tổng của số đứng đầu tiên + số đứng ở vị trí cuối cùng không thay đổi. Do đó; số trung bình không thay đổi.

Bình luận (0)
NH
Xem chi tiết
DT
24 tháng 7 2018 lúc 12:56

Bước 1: Nhập N và dãy số  a 1 , . . . . , a n

Bước 2: i ←1;S ← 0 (0,5đ)

Bước 3: i > N thì sang bước 6 ngược lại sang bước 4 (0,5đ)

Bước 4: Nếu ai chia hết cho 2 thì S ←S + ai ; (0,5đ)

Bước 5: i ← i+1; quay lại bước 3

Bước 6: dừng và đưa S ra màn hình. (0,5đ)

Bình luận (0)