Question

Viết CT nhập điểm Văn, Toán của các bạn trong lớp. Tính điểm TB và xuất ra màn hình bạn nào có điểm TB lớn nhất.

Viết CT nhập vào mãng các số nguyên. Tìm x trong mãng thay x=y

Answer 1

Bài 1: Viết CT nhập điểm Văn, Toán của các bạn trong lớp. Tính điểm TB và xuất ra màn hình bạn nào có điểm TB lớn nhất

uses crt;
var a,b:array[1..100]of integer;
i,n,dem:integer;
c:array[1..100]of real;
max,tb:real;
begin
clrscr;
write('Nhap so ban trong lop='); readln(n);
for i:=1 to n do
begin
repeat
write('Nhap diem Van,Toan cua ban thu ',i,'='); readln(a[i],b[i]);
until (0<=a[i]) and (a[i]<=10) and (0<=b[i]) and (b[i]<=10);
end;
dem:=0;
for i:=1 to n do
begin
tb:=(a[i]+b[i])/2;
inc(dem);
c[dem]:=tb;
end;
max:=0;
for i:=1 to dem do
if max<c[i] then max:=c[i];
writeln('Ban co diem trung binh cao nhat la nhung ban o vi tri lan luot la: ');
for i:=1 to dem do
if max=c[i] then write(i:4);
readln;
end.

Answer 2

Đề : Viết CT nhập vào mãng các số nguyên. Tìm x trong mãng thay x=y

Giải :

Program HOC24;

var x,y,i,n: integer;

a: array[1..32000] of integer;

begin

write('Nhap so phan tu cua mang : ' ); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('Nhap x : '); readln(x);

write('Nhap y : '); readln(y);

for i:=1 to n do

if a[i]=x then a[i]:=y;

write('Mang sau khi thay la : ');

for i:=1 to n do write(a[i],' ');

readln

end.