помогите решить задачу на паскале пожайлуста
Организовать ручное заполнение целочисленного одномерного массива. Заменить все максимальные элементы массива на произведение максимального элемента и его индекса. Вывести максимальный элемент массива, а также сам массив до и после изменения.
Toss322:
размерность массива - константа? или необходимо вводить размер массива в начале выполнения программы?
Ответы
Ответ дал:
2
Ответ:
program znanijacom;
const
n = 5;
type
mas = array[1..n] of integer;
var
a: mas;
i: integer;
max: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
writeln('вывод элементов массива:');
for i:=1 to n do write(a[i]:3);
max := a[1];
for i:=1 to n do if a[i] > max then max := a[i];
writeln(' максимальный элемент: ', max);
writeln('массив после изменений: ');
for i:=1 to n do begin
if a[i] = max then a[i] := a[i]*i;
write(a[i]:3);
end;
end.
Объяснение:
Приложения:
![](https://st.uroker.com/files/da4/da4e39a413c956029dddfa7c7a9d4a5a.jpg)
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад