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 ^^...
Đọc tiếp
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 ^^
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.
Cảm ơn nhiều nhaa