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

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

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

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

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

textual
Листинг программы
  1. const
  2.   n = 5;
  3.  
  4. var
  5.   a: array[1..n] of integer;
  6.   i, max: integer;
  7.  
  8. begin
  9.   for i := 1 to n do
  10.     readln(a[i]);
  11.   max := a[1];
  12.   for i := 2 to n do
  13.     if a[i] > max then
  14.       max := a[i];
  15.   writeln('max: ', max);    
  16.   for i := 1 to n do
  17.   begin
  18.     a[i] := a[i] - 5;
  19.     write(a[i]:6);
  20.   end;
  21. end.

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


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

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

11   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы