uses crt;
var n,i,t:longint;
a:array[1..1000]of integer;
begin
write('nhap do dai mang:');readln(n);
t:=0;
for i:=1 to n do begin
write('nhap phan tu thu ',i,' :');readln(a[i]);
t:=t+a[i];
end;
writeln('tong cua mang la:',t);
readln
end.
uses crt;
var n,i,t:longint;
a:array[1..1000]of integer;
begin
write('nhap do dai mang:');readln(n);
t:=0;
for i:=1 to n do begin
write('nhap phan tu thu ',i,' :');readln(a[i]);
t:=t+a[i];
end;
writeln('tong cua mang la:',t);
readln
end.
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
Viết chương trình nhập mảng gồm N số nguyên từ bàn phím và in ra màn hình các dãy số vừa nhập đó
sử dụng biến mảng Viết chương trình nhập vào dãy số gồm n số nguyên từ bàn phím in ra màn hình tổng các số dương trong dãy số đó Giúp mình với
viết chương trình nhập mảng A gồm n phần tử và in ra màn hình tổng các số chẵn trong pas cal
Viết chương trình nhập vào dãy số gồm n số nguyên và in ra màn hình Trung bình cộng các số có trong mảng
Biết chương trình nhập vào 1 bến mảng gồm n số nguyên xuất ra màn hình độ dài và giá trị của các phần tử trong mảng đó
1. Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử âm trong mảng.
2. Viết chương trình nhập vào máy 1 mảng số nguyên bất kỳ, thống kê và in ra số phần tử dương trong mảng.
Mn giúp mình với!!!!!!
Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tổng phần tử có giá trị là số chia hết cho 3 và 5