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

Những câu hỏi liên quan
Nguyen Bảo Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 20:14

uses crt;

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

i,n,k,h,dem,t,dem1,dem2,t1,t2:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

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

end;

n:=100;

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

for i:=1 to n do 

  if a[i]=k then write(i:4);

writeln;

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

dem:=0;

for i:=1 to n do 

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

writeln(h,' xuat hien ',dem,' lan trong mang');

t:=0;

for i:=1 to n do 

  t:=t+a[i];

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

dem1:=0;

t1:=0;

dem2:=0;

t2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then

begin

inc(dem1);

t1:=t1+a[i];

end;

if a[i]<0 then 

begin

inc(dem2);

t2:=t2+a[i];

end;

end;

writeln('Co ',dem1,' so duong');

writeln('Tong cac so duong la: ',t1);

writeln('Co ',dem2,' so am');

writeln('Tong cac so am la: ',t2);

readln;

end. 

Nguyễn Trần Cảnh Nam
8 tháng 4 2021 lúc 22:07

bằng c++ hay pascal?

 

Nguyễn Thùy Linh
Xem chi tiết
Van anh Cuc Nhay Ben
Xem chi tiết
Nguyen Thi My An
22 tháng 7 2016 lúc 11:37

234 + 243 + 324 + 342 + 423 + 432 = 1998

Nguyễn Lê Hoàng
Xem chi tiết
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
7 tháng 7 2018 lúc 5:22

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
5 tháng 1 2020 lúc 2:37

Đáp án A

Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
7 tháng 2 2017 lúc 2:04

Đáp án A

Nam Sơn Bùi
Xem chi tiết
Nguyen thuy dung
Xem chi tiết
Hậu Duệ Mặt Trời
5 tháng 2 2016 lúc 15:19

1) 2998

2) k=1

3) 720

**** mik nha !