Cho mảng S gồm n số nguyên (n nhập từ bàn phím,n ≤ 100).Thực hiện các công việc sau :
a) Nhập giá trị cho các phần tử của mảng
b) In ra màn hình tổng các số dương và số lượng các số dương chạy trong mảng.
Cho mảng S gồm n số nguyên (n nhập từ bàn phím,n ≤ 100).Thực hiện các công việc sau :
a) Nhập giá trị cho các phần tử của mảng
b) In ra màn hình tổng các số dương và số lượng các số dương chạy trong mảng.
program soduong;
uses crt;
var S:array[1..100] of integer;
n,i,dem,tong:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua mang S: ‘); readln(n);
tong:=0; dem:=0;
for i:=1 to n do
begin
write(‘S[‘,i,’]= ‘); readln(S[i]);
if S[i]>0 then
begin
tong:=tong+S[i];
dem:=dem+1;
end;
end;
if d=0 then write(‘Trong mang S khong co so duong nao’)
else
begin
writeln(‘Tong cac so duong trong day la: ‘,tong);
writeln(‘Va trong day co ‘,dem,’ so duong’);
end;
readln
end.
Đáp án: