Giúp mình với !!!
Bài 1: (5đ) Số lớn nhất, nhỏ nhất.
Viết chương trình nhập dãy n số nguyên từ bàn phím, in ra màn hình:
+ Tổng các số nguyên âm, tổng các số nguyên dương.
+ Số lớn nhất, số nhỏ nhất và vị trí của nó trong dãy.
Ví dụ: Với n = 5 và dãy số được nhập là: 12, -34, -41, 47, 0
thì in ra kết quả: Tong cac so nguyen duong la: 59
Tong cac so nguyen am la: -75
So lon nhat la: 47 o vi tri thu 4
So nho nhat la: -41 o vi tri thu 3
Bài 2: (5đ) Tính tổng.
Viết chương trình nhập số nguyên dương n từ bàn phím. Tính các tổng sau:
S1 = 1 + 2 – 3 + 4 + 5 – 6 + … + n.
2 2 2
n (n 1)
1
…
25
1
13
1
5
1
S
(lấy 4 chữ số thập phân)
Ví dụ: Với n = 5 thì in ra kết quả : S1 =9
S2 = 0,3577
Bài 1:
program Bai_1;
uses crt;
var A:array [1..500] of integer;
n,i,T1,T2,max,d1,min,d2: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
max:=1; d1:=1; min:=1; d2:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if A[i]>0 then T1:=T1+A[i];
if A[i]<0 then T2:=T2+A[i];
if max<A[i] then
begin
max:=A[i];
d1:=i;
end;
if min>A[i] then
begin
min:=A[i];
d2:=i;
end;
end;
writeln(‘Tong cac so nguyen duong: ‘,T1);
writeln(‘Tong cac so nguyen am: ‘,T2);
writeln(‘So lon nhat: ‘,max,’ o vi tri thu ‘,d1);
writeln(‘So nho nhat: ‘,min,’ o vi tri thu ‘,d2);
readln
End.
Bài 2: