K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

31 tháng 12 2020

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

31 tháng 12 2020

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à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.

18 tháng 4 2021

Mình cảm ơn bạn nhiều lắm

 

22 tháng 10 2021

Anser reply image

 
30 tháng 12 2020

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.

29 tháng 12 2020

phần a

29 tháng 12 2020

phần b

26 tháng 12 2019

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.

24 tháng 7 2018

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đ)