Vct xuất ra số dương cuối cùng trong mãng pascal 01/08/2021 Bởi Kennedy Vct xuất ra số dương cuối cùng trong mãng pascal
uses crt; begin //nhập tự làm i := n; //n là số phần tử của mảng while a[i] < 0 do dec(i); write(‘So duong cuoi cung la: ‘,a[i]); readln; end. Bình luận
uses crt;
begin
//nhập tự làm
i := n; //n là số phần tử của mảng
while a[i] < 0 do dec(i);
write(‘So duong cuoi cung la: ‘,a[i]);
readln;
end.
Var i:Integer;
Begin
For i:=2 to N-1do
If(N mod i = 0) then
return 0
Else
return 1;
End;