Viết chương trình nhập vào mảng số nguyên gồm 7 phần tử sau đó in ra màn hình tích giá các phần tử giúp mình đi cần gấp lắm
Viết chương trình nhập vào mảng số nguyên gồm 7 phần tử sau đó in ra màn hình tích giá các phần tử giúp mình đi cần gấp lắm
Program nhapmang;
uses crt;
var n,i,d,j:integer;
a:array[1..7] of integer;
begin
clrscr;
write(‘Nhap so phan tu cua day:’);
readln(n);
while (n>7) do
begin
write(‘nhap lai so phan tu cua day thoa man toi da la 20 phan tu:’);
readln(n);
end;
for i:=1 to n do begin write(‘a[‘,i,’] =’);
readln(a[i]);
end;
for i:=1 to n do begin d:=0;
for j:=1 to a[i] do if a[i] mod j = 0 then d:=d+1;
if d=2 then
writeln(a[i],’ la so nguyen to’);
end;
readln;
end.
@xin ctlhn