program mangthuc;
Uses crt;
var A:array[1..100] of real;
n,i:byte;
t:real;
begin
clrscr;
write('Nhap so luong phan tu N: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
T:=0;
for i:=1 to n do
write('Phan tu thu ',i,': ');
readln(A[i]);
t:=t+A[i];
end;
writeln('Mang do la: ');
write(A[i]:5:2);
writeln;
write('Tong cua chung la: ',t:2:2);
readln
end.
uses crt;var n,i:byte;a:array[1..100] of real; s:real;BEGIN clrscr; write('Nhap n:'); readln(n); s:=0; for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); s:=s+a[i]; end; write('Tong la:',s:0:3); readlnEND.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.
nêu sự phân bố dân cư và đô thị hóa của bài dân cư, xã hội Trung VÀ Nam MĨ report
Giúp mik bài 4 với mik hứa sẽ cho ctlhn
Viết chương trình Free pascal để giải bài toán sau (dùng câu lệnh For....do) Tìm tất cả các số có 3 chữ số sao cho chữ số hàng đơn vi bằng tích chữ số hàng chục với chữ số hàng trăm VD :111,121,...
lập một bản kế hoạch làm báo tường giúp mình vs mình đang cần gấp!!
Viết chương trình yêu cầu nhập một số nguyên từ bàn phím. Xuất ra màn hình các số chẵn dương nhỏ hơn hoặc bằng số vừa nhập ( giúp mình với🙏🙏)
Cùng bày tỏ về lẽ sống trong 2 bài thơ Mùa xuân nho nhỏ của thanh hải: "Một mùa xuân nhỏ nhỏ Lặng lẽ dâng cho đời." Còn trong bài thơ Nới với con Của Y Phương dặn con rằng: "Con ơi tuy thô sơ da thịt Lên đường không bao giờ nhỏ bé được Nghe con." Em có suy nghĩ gì về lẽ sống được thể hiện qua các câu thơ?
I used to be able to solve the rubik cube very quickly but i seem to have lost the ....................... a : hang b : knack c : habit d: use giải thích hộ luôn ạ
Tả lại hình ảnh mẹ em đang nấu cơm
vẽ cảm ứng từ B sau khi vẽ thì tính góc anpha
Một hình vuông có chu vi bằng chu vi hình chữ nhật có chiều dài là 40 dm ,chiều rộng bằng 1/2 chiều dài .tính độ dài cạnh hình vuông
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
