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.
Приложения:
Где тут о каком-то ГОТОВОМ решении речь?
поднимите глазки на второй комментарий
комментарий не может менять сути вопроса, лишь дополнять.
Или пояснять
есди бы к вопросу текст программы был приложен, тогда другое дело.
ужас
И правда: для чего я на Вас свое время трачу, за которое можно было нескольким школьникам помочь?
сами отвечайте на свой вопрос, раз вы такой умный
Короче, вопрос об адекватности переходит в сферу модераторов. А вопрос Вашего воспитания остается на Вашей совести.
вопрос о вашем представлении мира, остается на вашей совести. Терпилой быть не желаю
Вас заинтересует
2 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад
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.