Решение задачи №2 из главы 15

Решение задачи №2 из главы 15

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

Вывод консоли
vvedite element massiva nomer 2:
2
vvedite element massiva nomer 3:
5
vvedite element massiva nomer 4:
6
vvedite element massiva nomer 5:
8
vvedite element massiva nomer 6:
7
vvedite element massiva nomer 7:
3
Naibolshee znachenie =3

var a:array[1..7] of integer; i,max:integer;
  begin
    for i:=2 to 7 do
    begin
     max:=a[1];
     writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
     readln(a[i]);  // считываем элемент i массива 'a' из консоли
   end;
   if A[i]>max
        then max:=A[i];
    writeln('Naibolshee znachenie =', max);
    readln();
  end.

Это почти то же, что

var a:array[1..7] of integer; i,max:integer;
  begin
    for i:=2 to 7 do
    begin
      max:=0;
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;
    if a[7]>max
      then max:=a[7];
    writeln('Naibolshee znachenie =', max);
    readln();
  end.
vedro-compota's picture

+ неправильное форматирование

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

vedro-compota's picture

Сейчас работает эквивалентно:

var a:array[1..7] of integer; i,max:integer;
  begin
    for i:=2 to 7 do
    begin
      max:=0;
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;
    if a[7]>0
      then max:=a[7];
    writeln('Naibolshee znachenie =', max);
    readln();
  end.

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

vedro-compota's picture

1)

 for i:=2 to 7 do

-- почему не заполняется первый элемент массива?

2) Решите задачу:

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

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

gani84's picture

Вывод консоли что то не то
vvedite element massiva nomer 1:
2
vvedite element massiva nomer 2:
6
vvedite element massiva nomer 3:
9
vvedite element massiva nomer 4:
5
vvedite element massiva nomer 5:
22
vvedite element massiva nomer 6:
3
vvedite element massiva nomer 7:
4
Naibolshee znachenie =2
Naibolshee znachenie =6
Naibolshee znachenie =9
Naibolshee znachenie =22


var a:array[1..7] of integer; i,max:integer;
begin

    for i:=1 to 7 do
    begin
     writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
     readln(a[i]);  // считываем элемент i массива 'a' из консоли
     max:=0;
    end;

    for i:=1 to 7 do
    begin
      if a[i]>max
           then
      begin
        max:=a[i];
        writeln('Naibolshee znachenie =', max);
      end;
    end;
    readln();
end.  
vedro-compota's picture

-1 -2 -3 -4 -5
max = 0

-- это неправильно.

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

gani84's picture

Распечатка консоли
vvedite element massiva nomer 2:
2
vvedite element massiva nomer 3:
3
vvedite element massiva nomer 4:
444
vvedite element massiva nomer 5:
5
vvedite element massiva nomer 6:
6
vvedite element massiva nomer 7:
88
Naibolshee znachenie =444
var a:array[1..7] of integer; i,max:integer;
begin
    max:=a[1];// назначаем первый элемент максимальным
    for i:=2 to 7 do
    begin
      writeln('vvedite element massiva nomer ', i, ':');  // пояснение для пользователя
      readln(a[i]);  // считываем элемент i массива 'a' из консоли
    end;

    for i:=2 to 7 do
    begin
      if a[i]>max
         then
             max:=a[i];
    end;
    writeln('Naibolshee znachenie =', max);
    readln();
end.