Viết chương trình vào mảng 1 chiều các số nguyên rồi thực hiện các công việc sau: a/ Tính tổng các phần tử của mảng b/ Đếm số các phần tử có giá trị dương Tất cả các kết quả được in ra màn hình
1 câu trả lời
Program baitap;
Uses crt;
Var A:array[1..200] of integer;
i,n,S,dem:integer;
Begin
Clrscr;
Write('So cac phan tu co trong mang:'); Readln(n);
S:=0; dem:=0;
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
S:=S+A[i];
If A[i]>0 then dem:=dem+1;
End;
Writeln('Tong cac phan tu:',S);
Writeln('Co ',dem,' cac phan tu co gia tri duong');
Readln
End.
Câu hỏi trong lớp
Xem thêm
