Nhập vào một dãy n số nguyên A1,A2,...,An Với (n<=10000 và Ai<=10^7 ). Đọc ra màn hình các thông tin sau: 1. Số lượng các số hạng âm và tổng của các số hạng âm 2. Số lượng các số chẵn và tổng của các số chẵn. em cảm ơn ạ !!!!!!!!!!!!!!!!!!!
2 câu trả lời
program Tin_hoc;
uses crt;
var i,n,am,chan,tongam,tongchan:integer;
a: array [1..10000] of integer;
begin
clrscr;
write('Nhap n<=10000: ');readln(n);
while n>10000 do
begin
write('Nhap lai: ');readln(n)
end;
writeln('Nhap ',n,' phan tu <=107: ');
for i:= 1 to n do
begin
write('a[',i,'] : ');readln(a[i]);
while a[i] > 107 do
begin
write('Nhap lai: ');readln(a[i])
end;
end;
am:=0;chan:=0;tongam:=0;chan:=0;
for i:= 1 to n do begin if a[i]<0 then
begin
am:=am+1;
tongam:=tongam+a[i]
end;
if (a[i] >=0) and (a[i] mod 2=0) then
begin
chan:=chan+1;
tongchan:=tongchan+a[i]
end;
end;
writeln('Co tat ca ',am,' so hang am va tong bang ',tongam);
writeln('Co tat ca ',chan,' so hang duong va tong bang ',tongchan);
readln;
end.
Program Hotboy;
Uses crt;
Var A:array[1..10000] of Longint;
Chan,I,n : integer;
Am,S1,S2:real;
Begin
Clrscr ;
Am:=0; chan:=0; S1:=0; S2:=0;
Write('nhao so phan tu trong day'); readln(n);
For i:=1 do n do
Begin
Repeat
Write('A[',i,']'); readln(A[i]);
Until A[i] <=10000000 ;
End;
For i:=1 to n do
Begin
If A[i] mod 2=0 then chan:=chan+1;
S1:=S1+A[i];
If A[i] <0 then am:=am+1 ;
S2:=S2+A[i];
Writeln('So cac phan tu am la',am,'tong cua chung la',S2);
Writeln('so cac phan tu chan la',chan,'tong cua chung la',S1);
End;
Readln
End.