Предмет: Информатика,
автор: Петрушка15
Pascal
для массива x из 30 элементов найти наибольший элемент, после чего нормировать все элементы массива, поделив их значения на значение наибольшего элемента. Значение наибольшего элемента, его номер вывести на экран.
Исправьте пожалуйста ошибки
Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
var x := ArrRandomReal(30, -99, 99);
x.Transform(p -> Round(p, 1));
x.Println;
var imax := x.IndexMax;
var xmax := x[imax];
Println('Max =', xmax, ' его номер', imax + 1);
x.Transform(p -> p / xmax);
x.Println
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: qsebine294
Предмет: Химия,
автор: kuralaimarat7
Предмет: Русский язык,
автор: qsebine294
Предмет: История,
автор: solovevaelizaveta
Предмет: Математика,
автор: Businka4441
var i,n,j: integer;
max:real;
a: array[1..30] of integer;
b: array[1..30] of real;
begin
randomize;
for i:=1 to 30 do
begin
a[i]:=random(50-20);
write(a[i]:4);
end;
n:=1;
max:=a[i];
for i:=2 to 30 do
if maxbegin
max:=a[i];
n:=i;
end;
writeln;
writeln('Максимум: ', max);
writeln ('Получившийся массив');
for i := 1 to 30 do begin
write (a[i]/max:6:2, ' ');
end;
for i:=1 to 30 do
if a[i]<0 then a[i]:=-a[i];
writeln ('Наибольший элемент в массиве ', max);
writeln ('Номер массива ', n);
end.