lần đầu gặp trường hợp này hơi bỡ ngỡ

hok coá j âu

program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
write('nhap vao so nguyen n :');
readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
write('Tong cac so vua nhap=',s);
readln;
end.

sr trả lời hơi trễ

Tham khảo!

program b1;
uses crt;
var a:array[1..100] of integer; i,n,max,min:integer;  s:longint;
begin
clrscr;
write('Nhap vao so nguyen n:');
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if(a[i]<min) then min:=a[i];
if(a[i]>max) then max:=a[i];
end;
for i:=1 to n do
s:=max+min;
write('Tong cua so lon va so be=',s);
readln;
end.

Hỏi nhìu quá sốc

uses crt;
var i,n,s,a,v,t:longint;
begin
clrscr;
write('So lan nhap so vao:'); readln(n);
for i:=1 to n do
begin
s:=s+1;
write('Nhap so thu',s,':'); readln(a);

if(a mod 2=0) then
t:=t+a;
if (a mod 2 <> 0) then
v:=v+a;
end;
writeln('Tong cac so le la:',v);
writeln('Tong cac so chan la:',t);
readln
end.

Tham khảo nha!

6.5 trở xuống mình cho nó kém được không á bạn

a:array[1..200] of real;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
gioi:=0; kha:=0; kem:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(gioi);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(kha);
if (a[i]<6.5) then inc(kem);
end;
writeln('So hoc sinh gioi la:',gioi);
writeln('So hoc sinh kha la:',kha);
writeln('So hoc sinh kem la:',kem);
readln;
end.

program b1;
uses crt;
var n,i:integer;
tb:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
writeln('nhap day so:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
tb:=0;
for i:=1 to n do tb:=tb+a[i];
tb:=tb/n;
write('trung binh cong cua day so vua nhap la:',tb:2:2);
readln;
end.

Tham khảo!