uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xuat------------------------------}
writeln('cac so nguyen am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Viết pt nhập vào 100 số nguyên, đưa ra số lượng số nguyên âm và số nguyên dương
viết ct nhập từ bàn phím số nguyên dương N ( N<100) và dãy A gồm N số dương A1,A2,...An. hãy in mảng vừa nhập
Viết chương trình nhập vào một mảng gồm n số nguyên a.in ra mảng vừa nhập b.tính và in ra màn hình tổng các cân bậc hai của các số nguyên dương trong mảng vừa nhập
Viết chương trình thực hiện các công việc sau: a) Nhập vào một dãy gồm N số nguyên ( N > 50) b) Hãy in ra màn hình dãy số vừa nhập c) Nhập vào một số nguyên x bất kỳ. In ra các số chia hết cho x
Giải giúp mình nha Viết CT nhập từ bàn phím mảng 1 chiều A gồm N phần tử là số nguyên (1<=N<=250). Tính và in ra màn hình các phần tử có số tận cùng là 7
viết chương trình nhập vào mảng một chiều gồm N số nguyên (N<=1000 và mảng A gồm N số nguyên A1,A2,A3,...,An có giá trị tuyệt đối không lớn hơn 1000 hãy đưa ra màng hình những thông tin sau
A nhập mảng
B in mảng
C đếm xem có bao nhiêu phần tử = 0 trong dãy
D tính tổng các phần tử chẵn trong dãy
giúp vs ạ
Viết ct nhập vào từ bàn phím dãy số nguyên a có n phần tử (n
nhập vào một mảng số nguyên tính và đưa ra màng hình tổng số nguyên dương và số nguyên âm
Viết CT nhập dãy số nguyên A gồm n phần tử (n<=100) . Tính và đưa ra màn hình tổng các số chia hết cho 3 và 5 trong dãy
