Chỉ được dùng 2 biến, nhập dãy `a_n` số nguyên, xuất số lớn nhất Chỉ dùng case of, không dùng vòng lặp for hay while hay repeat ◑﹏◐ `Pascal`
1 câu trả lời
var max: longint;
a: array[0..1] of longint;
label __loop, _end;
begin
readln(a[0]);
if a[0] = 0 then goto _end;
read(max); dec(a[0]);
__loop:
if a[0] < 0 then goto _end;
dec(a[0]);
read(a[1]);
case a[1] > max of
true: max:=a[1];
end;
if a[0] > 0 then goto __loop;
_end: writeln(max);
readln;
end.
Câu hỏi trong lớp
Xem thêm
