KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
viết chương trình nhập vào 1 mảng gồm 5 phần tử và in ra màn hình giá trị lớn nhì
By Parker
viết chương trình nhập vào 1 mảng gồm 5 phần tử và in ra màn hình giá trị lớn nhì
uses crt; var i,maxValue,max:longint; a:array[1..5]of longint; begin clrscr; for i:=1 to 5 do readln(a[i]); maxValue:=a[1]; max:=a[1]; for i:=2 to 5 do if a[i]>maxValue then maxValue:=a[i]; for i:=2 to 5 do begin if (a[i]>max) and (max<maxValue) and (a[i]<maxValue) then max:=a[i]; end; writeln(max); readln; end.
uses crt; var ln, lnh, lb: integer; var a:array[1..5] of integer; function max(x, y: integer): integer; begin if x>=y then max:=x else max:=y; end; begin clrscr; textcolor (white); write (‘Nhap gia tri cua cac phan tu: ‘); read (a[1], a[2], a[3], a[4], a[5]); ln:=max(max(max(max(a[1], a[2]), a[3]), a[4]), a[5]); if ln=a[1] then begin lnh:=max(max(max(a[2], a[3]), a[4]), a[5]); writeln (‘gia tri lon nhi la: ‘,lnh); end; if ln=a[2] then begin lnh:=max(max(max(a[1], a[3]), a[4]), a[5]); writeln (‘gia tri lon nhi la: ‘,lnh); end; if ln=a[3] then begin lnh:=max(max(max(a[1], a[2]), a[4]), a[5]); writeln (‘gia tri lon nhi la: ‘,lnh); end; if ln=a[4] then begin lnh:=max(max(max(a[1], a[2]), a[3]), a[5]); writeln (‘gia tri lon nhi la: ‘,lnh); end; if ln=a[5] then begin lnh:=max(max(max(a[1], a[2]), a[3]), a[4]); writeln (‘gia tri lon nhi la: ‘,lnh); end; readln; readln; end. end.
uses crt;
var i,maxValue,max:longint;
a:array[1..5]of longint;
begin
clrscr;
for i:=1 to 5 do readln(a[i]);
maxValue:=a[1]; max:=a[1];
for i:=2 to 5 do
if a[i]>maxValue then maxValue:=a[i];
for i:=2 to 5 do
begin
if (a[i]>max) and (max<maxValue) and (a[i]<maxValue) then
max:=a[i];
end;
writeln(max);
readln;
end.
uses crt;
var ln, lnh, lb: integer;
var a:array[1..5] of integer;
function max(x, y: integer): integer;
begin
if x>=y then
max:=x
else
max:=y;
end;
begin
clrscr;
textcolor (white);
write (‘Nhap gia tri cua cac phan tu: ‘); read (a[1], a[2], a[3], a[4], a[5]);
ln:=max(max(max(max(a[1], a[2]), a[3]), a[4]), a[5]);
if ln=a[1] then
begin
lnh:=max(max(max(a[2], a[3]), a[4]), a[5]);
writeln (‘gia tri lon nhi la: ‘,lnh);
end;
if ln=a[2] then
begin
lnh:=max(max(max(a[1], a[3]), a[4]), a[5]);
writeln (‘gia tri lon nhi la: ‘,lnh);
end;
if ln=a[3] then
begin
lnh:=max(max(max(a[1], a[2]), a[4]), a[5]);
writeln (‘gia tri lon nhi la: ‘,lnh);
end;
if ln=a[4] then
begin
lnh:=max(max(max(a[1], a[2]), a[3]), a[5]);
writeln (‘gia tri lon nhi la: ‘,lnh);
end;
if ln=a[5] then
begin
lnh:=max(max(max(a[1], a[2]), a[3]), a[4]);
writeln (‘gia tri lon nhi la: ‘,lnh);
end;
readln;
readln;
end.
end.
hai cái end. đó ko có lỗi gì đâu nha