Question

Cho một dãy số gồm n số nguyên. Viết chương trình sử dụng biến mảng thực hiện các yếu cầu sau:

+ Nhập vào dãy số nguyên đó

+tính tổng các số nguyên trong dãy số vừa nhập

+đếm xem trong giải số đó có bao nhiêu số âm

+tính tích các số nguyên trong dãy số vừa nhập

+ in ra số lớn nhất cùa dãy số đó

+ in ra số bé nhất của dãy số đó

@@@@@Ai giúp tớ với, tớ sắp thi rồi

Answer 1

bn thu xem nhe

program Mang;

uses crt;

var i, max, min, tong, tich, desoam,n:longint;

A:array[1..10000] of longint;

begin

write('N= '); readln(n);

tong:=0;

tich:=1;

demsoam:=0;

for i:=1 to n do

begin

write('Nhap phan tu thu ',i); readln(A[i]);

tong:=tong+A[i];

tich:=tich*A[i];

if A[i]<0 then demsoam:=demsoam+1;

end;

min:=A[1];

max:= A[1];

for i:=1 to n do

begin

if A[i]>max then max:=A[i];

if A[i]<min then min:=A[i];

end;

writeln('Tong cac so trong day vua nhap: ',tong);

Writeln('Day tren co ',demsoam,' so am.');

Writeln('Tich cac so nguyen trong day: ',tich);

Writeln('So lon nhat la: ',max);

Writeln('So be nhat la: ',min);

readln

end.