Question

[Nguyen Bảo Nhi]

Viết chương trình nhập và xuất mảng có 100 phần tử các số nguyên

1/Nhập vào 1 số nguyên k, cho biết vị trí nào trong mảng bằng với k.

2/Nhập vào số nguyên h, cho biết h xuất hiện bao nhiêu lần trong mảng

3/ Tổng các phần tử của dãy

4/Số lượng các số hạng dương và tổng các số hạng dương

5/Số lượng các số hạng âm và tổng của các số hạng âmViết chương trình nhập và xuất mảng có 100 phần tử các số nguyên

Answer 1

[Nguyễn Lê Phước Thịnh]

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. 

Answer 2

[Nguyễn Trần Cảnh Nam]

bằng c++ hay pascal?