Дано целое число N (> 1) и набор из N чисел. Найти максимальную сумму двух
5-9 класс
|
соседних чисел из данного набора.10 минут ждууу ...........
uses crt;
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]+a[2];
for i:=1 to n-1 do
if (a[i]+a[i+1] > max) then
max:= a[i]+a[i+1];
writeln(max);
end.
Готово................
Другие вопросы из категории
в 10 день занятий.Сколько всего слов выучит за 10 дней.ОЧЕНЬ СРОЧНО НУЖНО СОСТАВИТЬ АЛГОРИТМ ПО ЭТОЙ ЗАДАЧЕ!!!!!
Читайте также
Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.