program tinh_tong;
uses crt;
var t,i,n:longint;
a: array[1..1000]of integer;
begin
t:=0;
wirte('nhap do dai mang:'); readln(n);
for i:=1 to n do
write('nhap phan tu thu ',i,' :');readln(a[i]);
if a[i] >0 then t:=t+a[i];
end;
writeln('tong cua mang la :',t);
readln
end.
CHÚC BẠN HỌC TỐT ^.^!
program tinhtong;
var i, s, n : integer;
a : array [1..100] of integer;
clrscr;
write('So thu n la: '); readln(n);
s:=0
for i:=1 to n do begin
write('Nhap so thu ',i); readln(a[i]);
s:=s+a[i]; end;
writeln('Tong cac so do la: ',s);
Indentifying popular festival Cảm ơn trước
tính đúng đắn cuẩ sự quá độ lên chủ nghĩa xh,bỏ qua chế độ tư bản chủ nghĩa ở nước ta đc căn cứ vào cơ sở nào? A.phù hợp vs đ.kiện,hoàn cảnh của lịch sử dt B.từ kinh nghiệm của các nước đi trc C.chủ nghĩa tư bản có nhìu hạn chế D.phù hợp vs mong muốn của đảng
Vẽ anime bùn ( NL : kím ny , từ nãy giờ k kiếm đc ai cả ) ++"
Bạn giúp mk vs ạ Cám ơn bạn rất nhiều
Cho các số không âm x;y;z thỏa mãn x+y+z=1 Tìm Max của Q
Cho tam giác ABC có AB=2 căn 3cm, AC=2cm,BC=4cm khi đó bán kính đường tròn tiếp xúc với BC bằng A.CĂN 5 cm B.căn 5 cm C.Căn 3 cm D căn 2cm
Giải giúp mk câu này với ạ, mk xin cảm ơn ạ 🥺
văn bản Cô Tô đoạn 2: đoạn văn miêu tả cảnh tượng gì ?
Nêu những nét khác biệt của cuộc khởi nghĩa Yên Thế so với các cuộc khởi nghĩa khác cùng thời. Nêu chi tiết giúp emm nha! tks
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
