Question

1. viết chương trình tạo mảng k gồm a số thực (a<=50, a được nhập từ bàn phím) đưa ra màn hình giá trị các số không âm và cho biết có bao nhiêu số âm trong mảng k

2. Viết chương trình tạo mảng B gồm m số nguyên (m<=30, m được nhập từ bàn phím) đưa ra màn hình tích các số nguyên là bội của 3 và liệt kê các số còn lại có trong mảng B
GIÚP MÌNH VỚI ^^

Answer 1

1:

uses crt;

var k:array[1..50]of real;

a,i,dem:integer;

begin

clrscr;

write('a='); readln(a);

for i:=1 to a do

begin

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

end;

{-------------------xu-ly-------------------------}

writeln('cac so khong am trong day la: ');

for i:=1 to a do

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

writeln;

dem:=0;

for i:=1 to a do

if k[i]<0 then inc(dem);

writeln('so so am trong day la: ',dem);

readln;

end.

2:

uses crt;
var b:array[1..30]of integer;
m,i:integer;
s:int32;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
{--------------------------------xu-ly-------------------------}
s:=1;
for i:=1 to m do
if b[i] mod 3=0 then s:=s*b[i];
writeln('tich cac so nguyen la boi cua 3 la: ',s);
writeln('cac so khong la boi cua 3 trong day la: ');
for i:=1 to m do
if b[i] mod 3<>0 then write(b[i]:4);
readln;
end.