program ct;
uses crt;
var i,S:integer;
B:array[1..10] of real;
begin
clrscr;
for i:=1 to 10 do
write('nhap mang B[',i,']:=');readln(A[i]);
end;
S:=0;
if A[i]<0 then S:=S+A[i];
writeln('tong la:',S);
readln
end.
var A:array[1..10] of real;
i,S:integer;
begin clrscr;
write('Nhap phan tu thu ',i,': '); readln(A[i]);
if A[i]<0 then S:=S+i;
writeln('Tong cac so am la: ',S);
readln;
Học tốt!
một số tự nhiên có 2 chữ số với tổng các chữ số của nó bằng 2 .nếu viết thêm chữ số 1 vào giữa hai chữ số của số đó thì ta được một số mới lớn hơn số ban đầu là 550 đơn vị.tìm số ban đầu cần gấp
giúp mik với nha!!! -tình hình giáo dục thời lê sơ -nguyên nhân thắng lợi và ý nghĩa lịch sử của phong trào tây sơn -những thành tưu về kĩ thuật ở nước ta cuối thế kỉ 19 -nhà nguyễn lập lại chế độ phong kiến tập quyền như thế nào nhanh nhé
có bao nhieu hinh thức truyền nhiệt ? hãy kể tên nêu đặc điểm vad cho ví dụ từng hình thức đó. giúp mình vs
Trình bày chiến sự ở Gia Định?Em có nhận xét gì về thái độ chống Pháp của triều đình Huế?
Hộ mình bài 5 hoặc bài 6 với ạ mình cảm ơn
Cho tam giác ABC cân có AB = AC =25cm , BC= 30 cm , các đường cao AD và CE cắt nhau tại H a) Chứng Minh rằng tam giác ADB đồng dạng vs tam giác CBE . Tính CE b) Đường thẳng BH cắt AC tại I . Chứng Minh AB . EI = AE . BC c) Kẻ đường thẳng vuông góc AB tại B cắt đường thẳng AC tại M . Chứng Minh CI/CM =AI/AC Mong m.n giúp mik ạ
Giúp mình dải câu 2 trong phần. 3 từ luận rồi mình sẽ vote 5sao
VẼ CÁI DƯỚI = CHÌ AWWW 😭 CỨ VẼ MẶT LÀ HỎNG Tạm biệt bức tranh từ đây Hiccc :<
nghi ngờ 1 địa điểm là nơi buôn bán ma túy em sẽ xử lí như thế nào
Một lượng khí có thể tich 10cmkhối ,a0s suất 1atm ,nhiệt độ 27°c a) đẳng nhiệt , thể tích tăng gấp đôi. Tính áp suất b) đẳng áp , nhiệt độ 180°c .Tính đẳng tích
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
