В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран
const
n = 5;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
readln(a[i]);
max := a[1];
for i := 2 to n do
if a[i] > max then
max := a[i];
writeln('max: ', max);
for i := 1 to n do
begin
a[i] := a[i] - 5;
write(a[i]:6);
end;
end.
Похожие записи/страницы:
- Найти в массиве отрицательные элементы и уменьшить их вдвое, через процедуру. И вывести полученный результат на…
- В массиве В 20 элементов. Найти и напечатать. Увеличить положительные элементы на 2, отрицательные элементы…
- Упорядочить по возрастанию элементы в каждой строке матрицы A(K,L), K меньше или равно 80, L меньше или равно 50…
- В целочисленном массиве найти число, повторяющееся максимальное количество раз. Если таких чисел несколько, то…
- Нахождение максимума из 3 целых чисел -Pascal(Паскаль)
- Составить программу,отыскивающую в одномерном массиве A(N) число, встречающееся наименьшее количество раз и если…
- В одномерном массиве А=(а1, а2, ..., аn) группу, содержащую наибольшее число подряд идущих положительных…
- Нахождение максимума из вещественных чисел - Pascal(Паскаль)