program ct;
uses crt;
var S,i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
write('nhap mang A[',i,']:=');readln(A[i]);
end;
S:=0;
if A[i]>0 then S:=S+A[i];
writeln('tong cac so duong la:',S);
readln
end.
Program FNG;Uses crt;Var A: array[1..10000] of longint; n,i,s: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); If A[i]>0 then s:=s+A[i]; End; Write('S = ',s); ReadlnEnd.
viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím và in ra màn hình tổng của dãy số đó
kiểu khí hậu chiếm vị trí nhỏ nhất ở bắc mỹ
Giúp mình giải bài nay với ạ.mình cần gấp ạ
Viết một kết bài cho bài văn tả sân trường trong giờ ra chơi
Ở nhật bản phương tiện vận tải đường biển phát triển nhất,nguyên nhân chính là do
Hộ đi ạ ..........................
có ba lọ hóa chất chứa 3 đung dịch bị mất nhãn C2H5OH,CH3COOH,CH3COOC2H5 hãy dùng phương pháp hóa học phân biệt 3 dung dịch trên
1. i regret not booking the seats in advance 2''john left here an hour ago ,'' said jane 3.they did not let me in because i was not a member of the club 4.it/better/play safe /exams /give/ original answer 5. mr thomson is by far the richest man i know 6.nam is better at english than linh 7.''would you like a cup of coffee ? jane said to mark 8. i was very exhausted ,but i didn't stop working
Cho x > 0 , tìm giá trị nhỏ nhất của biểu thức : M = 9x^2 -5x +1/9x +2020
một người đi xe máy trong 3 đầu mỗi giờ đi được 36,5 km ; trong 2 giờ sau mỗi giờ đi được 34,5 km . Hỏi quãng đường người đó đã đi dài bao nhiêu km ?
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
