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

Primary tabs

Submitted by Djos on Wed, 10/06/2021 - 19:10

Forums:

Задача 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.
  • Log in to post comments
  • 2166 reads
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 12:27

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

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

Djos

Sun, 10/10/2021 - 22:14 

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

vedro-compota

Wed, 10/13/2021 - 20:11

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

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

Djos

Wed, 10/13/2021 - 23:05 

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

vedro-compota

Sun, 10/17/2021 - 12:46

засчитано

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