1Viết chương trình nhập điểm môn tin học của một lớp học. In ra màn hình bạn có điểm cao nhất và bạn có điểm thấp nhất.
2Tính tổng bình phương của các số lẻ trong dãy n(n được nhập từ bàn phím). in kết quả ra màn
hình
Ai giúp mik với ạ mai kt rồi
1
uses crt;
var i,n,max,min,d1,d2: integer;
a: array [1..100] of integer;
begin
clrscr;
write(‘Nhap so ban trong lop: ‘); readln(n);
for i:=1 to n do begin
write(‘Diem ban thu ‘,i,’ : ‘);
readln(a[i]); end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then begin max:=a[i]; d1:=i; end;
if min>a[i] then begin min:=a[i]; d2:=i; end;
end;
writeln(‘Ban thu ‘,d1,’ co diem cao nhat bang: ‘,max);
writeln(‘Ban thu ‘,d2,’ co diem thap nhat bang: ‘,min);
readln;
end.
2:
uses crt;
var i,n,s: integer;
a: array [1..100] of integer;
begin
clrscr;
write(‘Nhap so phan tu cua day: ‘); readln(n);
for i:=1 to n do begin
write(‘a[‘,i,’]=’); readln(a[i]); end;
for i:=1 to n do
if a[i] mod 2 <> 0 then s:=s+sqr(a[i]);
writeln(‘Tong binh phuong cac so le la: ‘,s);
readln;
end.
Bài 1:
uses crt;
var i,n,max,min,d1,d2: integer;
a: array [1..100] of integer;
begin
clrscr;
write(‘Nhap so ban trong lop: ‘); readln(n);
for i:=1 to n do begin
write(‘Diem ban thu ‘,i,’ : ‘);
readln(a[i]); end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then begin max:=a[i]; d1:=i; end;
if min>a[i] then begin min:=a[i]; d2:=i; end;
end;
writeln(‘Ban thu ‘,d1,’ co diem cao nhat bang: ‘,max);
writeln(‘Ban thu ‘,d2,’ co diem thap nhat bang: ‘,min);
readln;
end.
Bài 2:
uses crt;
var i,n,s: integer;
a: array [1..100] of integer;
begin
clrscr;
write(‘Nhap so phan tu cua day: ‘); readln(n);
for i:=1 to n do begin
write(‘a[‘,i,’]=’); readln(a[i]); end;
for i:=1 to n do
if a[i] mod 2 <> 0 then s:=s+sqr(a[i]);
writeln(‘Tong binh phuong cac so le la: ‘,s);
readln;
end.
mk đã test r nhá! mong đc vote