Mn ơi mk cần gấp lắm ạ
VCT Nhập số nguyên dương N ( N<=250) và dãy N số nguyên dương a1,a2.. an.
- In ra các phần tử âm của mảng
- Tính tổng các phần tử âm của mảng
Mn ơi mk cần gấp lắm ạ VCT Nhập số nguyên dương N ( N<=250) và dãy N số nguyên dương a1,a2.. an. - In ra các phần tử âm của mảng - Tính tổng các phần
By Hailey
uses crt;
var a: array[1..100] of integer;
n,i,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
end;
write (‘cac phan tu am: ‘);
for i:=1 to n do
if a[i]<0 then begin write(a[i],’ ‘); s:=s+i; end;
writeln;
writeln (‘tong cac phan tu am la: ‘,s);
readln;
end.
var a: array[1..250] of integer;
s: longint;
i, n: byte;
Begin
S:=0;
Write(‘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;
Writeln(‘tong la: ‘, s);
Writeln(‘cac so am: ‘);
For i:=1 to n do if a[i]<0
Then write(a[i], ‘ ‘);
Readln
End.