Задача 3 Урок 15

Задача 3 Урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

var a : array [1..7] of integer;
i, max: integer;
begin
for i:=low(a) to high(a) do
begin
  writeln('vvedite chislo ', i, ':');
  readln(a[i]);
end;
for i:= low(a) to high(a) do
begin
  if(a[i]>max) then
    max:= a[i];
end;
write(max);
readln();
end.
vedro-compota's picture

что если все числа в массиве будут отрицательными?

_____________
матфак вгу и остальная классика =)

var a : array [1..7] of integer;
    i, max: integer;
begin
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite chislo ', i, ':');
    readln(a[i]);
  end;
  for i:= low(a) to high(a) do
  begin
    if((a[i] < 0) and (max = 0)or (a[i] > max))then
      max:= a[i];
  end;
  write(max);
  readln();
end
vvedite chislo 1:
-9
vvedite chislo 2:
-22
vvedite chislo 3:
-33
vvedite chislo 4:
-7
vvedite chislo 5:
-8
vvedite chislo 6:
-55
vvedite chislo 7:
-77
-7
vedro-compota's picture

лучше просто до цикла присвоить максимуму первый элемент массива

_____________
матфак вгу и остальная классика =)

var a : array [1..7] of integer;
    i,max: integer;
begin
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite chislo ', i, ':');
    readln(a[i]);
  end;

  max:= a[1];
  for i:=low(a) to high(a) do
    if (a[i]>max) then
      max:= a[i];

  write(max);
  readln();
end.
vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)