cho mảng A gồm N phần tử (N<=10).Viết chương trình nhập mảng A từ bàn phím danh sách các phần tử chia hết cho 3 cùng hiệu của nó
cho mảng A gồm N phần tử (N<=10).Viết chương trình nhập mảng A từ bàn phím danh sách các phần tử chia hết cho 3 cùng hiệu của nó
Uses crt;
Var i,n: integer;a: array[1..200] of longint;
BeginClrscr;
Write(‘Moi ban nhap n= ‘); readln(n);
Writeln(‘ Moi ban nhap mang: ‘);
For i:= 1 to n do
Begin
Write(‘ Nhap a[‘,i,’]= ‘); readln(a[i])End;
Writeln(‘ Phan tu dau tien cua mang la: ‘,a[1]);
Writeln(‘ Phan tu cuoi cung cua mang la: ‘,a[n]);Readln;
End.
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n):
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
end;
write (‘danh sach cac phan tu chia het cho 3: ‘);
for i:=1 to n do if a[i] mod 3=0 then write (a[i],’ ‘);
readln;
end.