Написать программу в Pascal. Дан массив из 240 элементов, заполненных датчиком случайных

Написать программу в Pascal.
Дан массив из 240 элементов, заполненных датчиком случайных чисел.

Найти максимальный элемент массива.
- Предмет:
  Информатика
- Автор:
  chumpzg4x
- 6 лет назад

Ответы 1

Program Mas;Var A:array [1..240] of integer;I,x:integer;BeginFor I:=1 to 240 doA[I]:=Random(1000);For I:=1 to 240 doIf A[I]>x Then x:=A[I];WriteLn ('',x);End. Random(1000) - это интервалто есть у вас будут задаваться числа от 0 до 999можете сами задать интревал, который вам нужен
- Автор:
  heathberger
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

AC и BD - диаметры окружности с центром O.Угол ACB равен 53 градусам.Найдите угол AOD.Ответ дайте в градусах.
- Предмет:
  Геометрия
- Автор:
  layne
- 6 лет назад
- Ответов:
  
  1
- Смотреть
ребята помогите с глаголом и пассивным залогом. 1. перепешите предложения в прошедшем времени. Im sure we will meet our targets The boards of Glaxo Wellcome and Smithkline Beecham announce that htey have agreed the terms of a proposed merger. The customers know that they respond quickly to demand (здесь наверно просто глагол во вторую форму надо? knew) The papers report that things were going well until the Asian stock market crash. A recent survey shows that the number of single parent families is increasing. Marceting plans predict that sales growth will reach 7,7 per cent. They believe that it is foolish to tisk so much money on the new dotcom company. The fax informs that Sun Advertasing has beaten its main competitor. Peter reports that the cost of using the Internet has increased. The analysts conclude that bullet proof cars will be the best way to protect the safety of company staff and their families. 2. преобразуйте прямую в косвенную речь. " I wont put it in the sales because its selling very well" she said. "Ive read the report and I dont understand section 4" he said. " When I finish my presentation Im going to have a drink" he said. "Im preparing the figures but I wont be long " she said. "I like playing tennis, but I dont do it very often" she said. "Im gping to visit our Polish subsidiary, but Im not sure when" she said. "Are you on holiday for the whole of August?" she asked me. "What do the letters URL mean?" I asked him. "Have you prepared the figures?" my boss asked me. "When is your birhtday?"I asked Franchesca "Did you remember to back up the file?"she asked him. "Why have you turned off the air conditioning?"Ellen asked me. "Do you speak Italian?"they asked me at the interview. "How much did you pay for your car?"I asked Pablo.
- Предмет:
  Английский язык
- Автор:
  messiah
- 6 лет назад
- Ответов:
  
  2
- Смотреть
В треугольнике ABC угол A равен 6,а углы B и C острые.Bd и CE-высоты,пересекаюшиеся в точке О.Найдите угол DOE.Ответ в градусах
- Предмет:
  Алгебра
- Автор:
  bishop
- 6 лет назад
- Ответов:
  
  1
- Смотреть
Стальноесверло массой 100г при работе нагрелось от 15 до 115 градусов С.Сколько энергии израсходовано двигателем для нагревания только сверла.
- Предмет:
  Физика
- Автор:
  yahirnewton
- 6 лет назад
- Ответов:
  
  1
- Смотреть

Написать программу в Pascal.
Дан массив из 240 элементов, заполненных датчиком случайных чисел.

Найти максимальный элемент массива.

Ответы 1

Топ пользователей

Написать программу в Pascal. Дан массив из 240 элементов, заполненных датчиком случайных чисел. Найти максимальный элемент массива.

Ответы 1

Топ пользователей

Написать программу в Pascal.
Дан массив из 240 элементов, заполненных датчиком случайных чисел.

Найти максимальный элемент массива.