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

Primary tabs

Submitted by jl8qy9kd_pro on Sat, 08/07/2021 - 17:26

Forums:

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

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

var a : array [1..7] of integer;
    i, b, c : integer;
begin
  for i := 1 to 7 do
    begin
      writeln('vvedi chislo');
      readln(b);
      a[i] := b;
    end;
  c := a[1];
  for i := low(a) to high(a) do
    begin
      if(a[i]>=(c)) then
        c := a[i];
    end;
    writeln('max = ', c);
  readln();
end.
  • Log in to post comments
  • 2418 reads
vedro-compota's picture

vedro-compota

Sun, 08/08/2021 - 13:17 

if(a[i]>=(c))

-- неточное условие (есть избыточность)

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

jl8qy9kd_pro

Sun, 08/08/2021 - 21:30 

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

vedro-compota

Sun, 08/29/2021 - 13:20

решение засчитано

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