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

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


textual

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

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.000 из 5



Похожие ответы
  1. Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

  1. Даны два действительных числа. замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в противном случае. Напишите код программы и составьте блок-схему.

  1. Даны результаты, ререписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990г.

  1. Преобразовать двоичное число в виде строки в десятичное число

  1. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево. 556 655 заранее спасибо...

  1. Нужно сделать небольшую программу, которая будет проверять, является ли число степенью двойки, то есть, 16-является степенью двойки (2^4=16), а 18 не является, но нужно сделать, как можно проще!

  1. Найти на заданном отрезке [N;M] число с максимальным произведением цифр. Паскаль

  1. помогите пожалуйста! надо составить программу для вывода на экран строки двумерного массива с наибольшим чётным числом.

  1. Задано трехзначное натуральное число N.Напишите программу ,вычисляющую число M. Которые записывается теми же цифрами ,что и N,только в обратном порядке. Например,если N=234; то M=432;если N=120;M=21