program mang;
uses crt;
var
a: array[1..100] of integer
i,n:integer;
begin
clrscr;
write('nhap so phan tu n=');readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i');readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]);
readln;
end.
viết chương trình sử dụng bến mảng nhập vào 1 dãy a gốm n số nguyên (n được nhập từ bàn phím). Tính tổng các số nguyên âm có trong dãy
Em hãy in ra các phần tử chẵn có trong mảng, biết số phần tử của mảng và giá trị của các phần tử của mảng được nhập từ bàn phím.
viết chương trình nhập dãy số n in ra các số chẵn trong dãy vừa nhập(sử dụng biến mảng)
viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. độ dài của dãy cũng được nhập từ bàn phím . tính giá trị trung bình của dãy số được nhập vào?
Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lể có trong dãy.
Viết chương trình sử dụng biến mảng nhập 20 số nguyên từ bàn phím và in ra màn hình số lớn nhất trong các số đó
viết chương tính tổng một mảng A số phần tử của mảng được nhập ừ bàn phím
Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình
Viết chương trình tính tổng dãy số nguyên trong mảng một chiều. Với độ dài của mảng được nhập từ bàn phím tối đa là 20 phần tử? jup mình đi
