Vct nhâp vào số nguyên Dương N và dãy số nguyên A1, A2, …AN thực hiện các yêu cầu sau:
a, đếm và đưa ra các phần tử có giá trị âm
b, tính tổng các phần tử có giá trị lớn hơn 100 và chia hết cho 5
Mọi ngừoi giúp em với ạ em cảm ơn
Vct nhâp vào số nguyên Dương N và dãy số nguyên A1, A2, …AN thực hiện các yêu cầu sau:
a, đếm và đưa ra các phần tử có giá trị âm
b, tính tổng các phần tử có giá trị lớn hơn 100 và chia hết cho 5
Mọi ngừoi giúp em với ạ em cảm ơn
program ct
uses crt;
var A:array[1..1000] of integer;
i,N,d:integer;
S:longint;
begin clrscr;
write(‘Nhap so nguyen duong N: ‘); readln(N);
for i:=1 to N do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
S:=0;
for i:=1 to N do
begin
if A[i]<0 then inc(d);
if (A[i]>100) and (A[i] mod 5=0) then S:=S+i;
end;
writeln(‘Co ‘,d,’ phan tu co gia tri am: ‘);
for i:=1 to n do
if A[i]<0 then write(A[i]:3);
writeln(‘Tong cac phan tu lon hon 100 va chia het cho 5 la: ‘S);
readln;
end.
Học tốt!
program h247;
var a:array[1..1000] of integer;
i, n, tong, dem: integer;
begin
write(‘Nhap n ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’] ‘);
readln(a[i]);
end;
{a)}
write(‘Cac phan tu co gia tri am la ‘);
for i:=1 to n do
if a[i] < 0 then
begin
dem:=dem+1;
write(a[i], ‘ ‘);
end;
write(‘Co ‘, dem, ‘ so co gia tri am’) ;
{b)}
for i:=1 to n do
if (a[i] > 100) and (a[i] mod 5 = 0) then tong:=tong+a[i];
write(‘Tong cac so lon hon 100 va chia het cho 5 la ‘, tong);
readln;
end.