Mọi người giúp mình giải bài này nha. Đây là tin học lớp 11 nha. Viết ra chương trình á nha….. “Cho 1 mảng gồm n phần tử n không vượt quá 100 và giá trị phần tử không vượt quá 200. Hãy cho biết trong mãng có bao nhiêu phần tử âm. Và tính tổng các phần tử không âm”
Mọi người giúp mình giải bài này nha. Đây là tin học lớp 11 nha. Viết ra chương trình á nha-. “Cho 1 mảng gồm n phần tử n không vượt quá 100 và g
By Adalynn
program kiemtra;
uses crt;
var A:array[1..100] of integer;
n,i,da:byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);
{vua nhap vua dem so am}
da:=0;
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);
readln(A[i]);
if A[i]<0 then da:=da+1; {neu la so am thi tang da}
end;
writeln(‘Trong mang co ‘,da,’ phan tu am’);
writeln(‘Trong mang co ‘,n-da,’ phan tu khong am’); {neu khong phai so am thi la so khong am}
readln
end.
uses crt;
var n,i,dem:byte;
a:array[1..100] of integer;
tong:integer;
BEGIN
clrscr;
write(‘Nhap N:’); readln(n);
dem:=0; tong:=0;
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]’);
readln(a[i]);
if a[i]>=0 then
begin
inc(dem);
tong:=tong+a[i];
end;
end;
writeln(‘Trong mang co ‘,n-dem,’ phan tu am.’);
writeln(‘Tong cac phan tu khong am la ‘,tong,’.’);
readln
END.