Bài 1: Nhập vào 1 dãy số nguyên với n<100, các phần tử <250. Tính tổng các số dương và đếm số âm. Bài 2: Tạo mảng gồm n (n <= 100) số nguyên, mỗi số đều có giá trị tuyệt đối không quá 300. Tỉnh tổng và trung bình giá trị của các phần tử trong mảng.
Bài 1: Nhập vào 1 dãy số nguyên với n<100, các phần tử <250. Tính tổng các số dương và đếm số âm. Bài 2: Tạo mảng gồm n (n <= 100) số nguyên, mỗi số đều có giá trị tuyệt đối không quá 300. Tỉnh tổng và trung bình giá trị của các phần tử trong mảng.
Câu 1:
uses crt;
var a:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
repeat
write(‘Nhap so luong phan tu (n<100): ‘); readln(n);
if n>=100 then writeln(‘NHAP LAI!’);
until n<100;
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
if a[i]>0 then inc(s,a[i]);
if a[i]<0 then inc(d);
end;
writeln(‘Tong so duong: ‘,s);
writeln(‘Co ‘,d,’ so am’);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100] of longint;
n,i,s:longint;
begin
clrscr;
repeat
write(‘Nhap so luong phan tu (n<=100): ‘); readln(n);
if n>100 then writeln(‘NHAP LAI!’);
until n<=100;
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
inc(s,a[i]);
end;
writeln(‘Tong: ‘,s);
writeln(‘Trung binh: ‘,s/n:0:2);
readln;
end.
Bài 1:
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,d,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0; s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i]>0 then s:=s+A[i];
If A[i]<0 then inc(d);
End;
Write(d,’ ‘,s);
Readln
End.
Bài 2:
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
s:=s+A[i];
End;
Write(s/n:0:2);
Readln
End.