program Soam;
var
n, i: integer;
a: array[1..1000] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;
writeln('Cac phan tu am trong day la: ');
for i := 1 to n do
begin
if a[i] < 0 then
writeln(a[i]);
end;
end.
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Viết chương trình nhập vào dãy số A gồm N phần tử (N nhập từ bàn phím) In ra màn hình các phân tử lag số chẵn?
Viết chương trình nhập vào một dãy số độ dài dãy số được nhập vào từ bàn phím sau đó in ra giá trị của các phần tử trong dãy đó
viết chương trình nhập vào một dãy số nguyên . số phân tử của dãy được nhập từ bàn phím a, in ra dãy số vừa nhập ra màn hình b, tính tổng các phân tử dương có trong dãy số
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình có bao nhiêu giá trị là số lẻ
Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)
Viết chương trình nhập vào một dãy số a có n phần tử nhập vào từ bàn phím in ra màn hình các phần tử lớn hơn 5 của dãy số vừa nhập vào?
Hãy xác định bài toán , mô tả thuật toán và viết chương trình nhập vào một dãy số nguyên với n phần tử ( n được nhập từ bàn phím ) , tìm giá trị nhỏ nhất và tích của dãy số đó
Đề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy
