Определить максимальный элемент массива и его номер - 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.
Объяснение кода листинга программы
- Объявление константы
N
и переменныхA
,B
- массивов типа real,i
,imax
- целочисленные переменные. - Генерация случайных значений и вывод массива
A
с использованием циклаfor
. - Вычисление значений массива
B
по формулеsqrt(exp(A[i]))-sqr(A[i])
и вывод его с использованием циклаfor
. - Инициализация переменной
imax
значением1
. - Цикл
for
для поиска индекса максимального элемента в массивеB
. - Вывод максимального элемента массива
B
и его индекса.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д