Question

Se citesc n numere. Sa se afiseze cel mai mare dintre cele care au trei cifre

Answer 1

program celMaiMare;

var
  n, m, i, k: integer;

begin
  write('n = ');
  readln(n);
  k := 0;
  for i := 1 to n do
  begin
    write(i + '.');
    readln(m);
    if m > 99 then
      if m < 1000 then
        if m > k then
          k := m; 
end;
  if k <> 0 then
    writeln('Cel mai mare numar este ' + k);
end.

358cbecaa7eaad5802d5cfcdf46e5351.pas