Найти максимальное число и уменьшить все элементы массива на 5 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

Решение задачи: «Найти максимальное число и уменьшить все элементы массива на 5»

textual
Листинг программы
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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы