Ввести два массива по 10 чисел. Найти в каком массиве наибольшее число (Delphi/Pascal)

Question

Ввести два массива по 10 чисел. Найти в каком массиве наибольшее число
(Delphi/Pascal)

Answer 1

Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln('введите элементы массива');for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] > max_num then beginmax_index := i;max_num := mas[i];end;writeln('введите элементы массива');for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] > g then beginc := b;g := v[b];end;if g<max_num then writeln('Максимальное число в первом массиве ',max_num ,' находится на позиции ',max_index)else writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);end.

Comments

после всех ; сделай пробел

---

uses crt;
const
n = 10;
var
i,b:integer;
mas : array[1..n] of integer;
v:array[1..n]of integer;
max_num, max_index,g,c: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(mas[i]);
for i := 2 to n do
if mas[i] > max_num then begin
max_index := i;
max_num := mas[i];
end;

---

writeln('введите элементы массива');
for b:=1 to n do readln(v[b]);
for b := 2 to n do
if v[b] > g then begin
c := b;
g := v[b];
end;
if gelse writeln ('Максимальное число во втором массиве ',g,' находится на позиции ',c);
end.

Answer 2

Begin
  var a := ReadArrInteger('Первый массив: ',10);
  var b := ReadArrInteger('Второй массив: ',10);
  write('Наибольшее число в');
  if a.Max > b.Max then write(' первом')
                   else write('о втором');
  writeln(' массиве.');
end.

---