Сделать массив A(15). Отыскать MAX посреди сумм пар примыкающих частей A[1]+A[2],

Сделать массив A(15). Отыскать MAX посреди сумм пар примыкающих элементов A[1]+A[2], A[2]+A[3] и т.д.

Задать свой вопрос
2 ответа
Var a:array[1..15]of integer;
i,max:integer;
Begin
  for i:= 1 to 15 do
     a[i]:=random(100);
 
  max:= a[1]+a[2];
  for i:= 1 to 14 do
   if max lt; a[i]+a[i+1] then
       max := a[i]+a[i+1];
 
  writeln(max);
End.


Ксения Румянуева
Если посодействовала, то выбери мое решение лучшим пожалуйста) охото быть светилом)
Дарья Данельская
как избрать лучшим? =))
Серж Хандогин
гдето ж както оно должно делаться, точно не знаю как( издавна заданий не задавала(
Viktor
я помню, что когда несколько человек решали мое... у меня возникал выбор, кому лучший поставить
=((( цаощыоаозылазфлщзалщзылаоыошзаошыоашкошаошщ
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт