Определить максимальный элемент массива и его номер - Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите ликвидировать ошибку
program massiv5;
const N=10;
type x=array [1..N] of integer;
y=array [1..N] of integer;
var A:x;
B:y;
i:integer;
max:integer;
imax:integer;
begin
randomize;
for i:=1 to N do
begin
A[i]:= -5+random(3);
write(A[i]:5);
end;
B[i]:=(sqrt(exp(A[i]))-sqr(A[i]));
writeln;
imax:=1;
max:=B[1];
for i:=2 to N do
if max<B[i] then
begin
max:=B[i];
imax:=i;
end;
writeln;
writeln('Max elem= ',max);
writeln;
write('Index ');
for i:=1 to N do
if max=B[i] then
begin
write (i,',');
end;
readln;
end.

Решение задачи: «Определить максимальный элемент массива и его номер»

textual
Листинг программы
const N=10;
var A,B:array [1..N] of real;
      i,imax:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to N do
 begin
  A[i]:=-5+random*10;
  write(A[i]:7:2);
 end;
writeln;
writeln('Массив В');
for i:=1 to n do
 begin
  B[i]:=sqrt(exp(A[i]))-sqr(A[i]);
  write(B[i]:7:2);
 end;
writeln;
imax:=1;
for i:=2 to N do
if B[i]>B[imax] then
imax:=i;
writeln('Max elem= ',B[imax]:0:2,' его номер=',imax);
readln;
end.

Объяснение кода листинга программы

  1. Объявление константы N и переменных A, B - массивов типа real, i, imax - целочисленные переменные.
  2. Генерация случайных значений и вывод массива A с использованием цикла for.
  3. Вычисление значений массива B по формуле sqrt(exp(A[i]))-sqr(A[i]) и вывод его с использованием цикла for.
  4. Инициализация переменной imax значением 1.
  5. Цикл for для поиска индекса максимального элемента в массиве B.
  6. Вывод максимального элемента массива B и его индекса.

Оцени полезность:

14   голосов , оценка 3.786 из 5
Похожие ответы