Предмет: Информатика,
автор: Петрушка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.
Приложения:
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: 7c8c4qxzx2
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: 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.