Question

Задание на разработку программы поиска максимального элемента в массиве. Дописать часть программы: Задан одномерный массив размерностью 7 со значениями от 0 до 20. var a: array[1..10] of integer; i: integer; BEGIN randomize; for i:=1 to 7 do begin a[i]:=random(21); write(a[i]:3); end; … END. Найти максимальный элемент.

Answer 1

Ответ:

var a: array[1..10] of integer;

i,max: integer;

BEGIN

randomize;

max:=0;

for i:=1 to 7 do

begin

a[i]:=random(21);

write(a[i]:3);

if (max<a[i]) then max:=a[i];

end;

writeln();

writeln(max);

END.

Объяснение:

Answer 2

Ответ:

В объяснении

Объяснение:

program Z;

const n=7;

VAR a: array [1..n] of integer;

   i, max: integer;

begin

randomize;

for i:=1 to n do

   begin

   a[i]:=random(20+1);

   writeln(a[i]:2);

   end;

writeln;

max:=a[1];

For i:=2 to n do  

If a[i]>max then max:=a[i];

writeln;

writeln('max=', max);

readln;

end.

Answer 3

Для поиска максимального элемента в данном массиве можно использовать следующий код:

pascalCopy code
program MaxElementSearch;

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

begin
  randomize;

  // Заполняем массив случайными значениями от 0 до 20
  for i := 1 to 7 do
  begin
    a[i] := random(21);
    write(a[i]:3);
  end;

  // Начальное значение для максимального элемента
  maxElement := a[1];

  // Ищем максимальный элемент в массиве
  for i := 2 to 7 do
  begin
    if a[i] > maxElement then
      maxElement := a[i];
  end;

  writeln;
  writeln('Максимальный элемент в массиве: ', maxElement);

end.

Программа сначала заполняет массив случайными значениями от 0 до 20, затем находит максимальный элемент путем сравнения каждого элемента массива с текущим максимальным значением. Результат выводится на экран.