напишите программу, Дан целый одномерный массив А, неотрицательных чисел, с индексами от 1 до 6. Заполнить данный массив с клавиатуры, найти и
10-11 класс
|
вывести наименьшую нечетную сумму двух соседних элементов массива.
program lol;
Const n=6;
var a:array [1..n] of integer;
i,s:integer;
begin
begin
for i:=1 to n do
readln (a[i]);
end;
s:=a[1]+a[2];
for i:=2 to n do
begin
if s>(a[i]+a[i-1]) then
s:=a[i]+a[i-1];
end;
writeln (s);
end.
Другие вопросы из категории
На плоскости дан набор точек с целочисленными координатами.Найти площадь наибольшего четырёхугольника ,у которого 2 точки лежат на оси ОХ,а 2 другие по разные стороны от оси ОХ.
для этого гнезда.
Читайте также
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
сначала задаются,а затем меняются.
Нц для i от 0 до 10
А [ i ] := i
кц
Нц для i от 0 до 4
С := A[ i ]
A[ i ] := A [10 - i ]
A [10 - i ] :=C
кц
Чему будут равны элементы массива после выполнения фрагмента программы?
1) 10 9 8 7 6 5 4 3 2 1 0
2) 0 1 2 3 4 5 6 7 8 9 10
3) 10 9 8 7 6 5 6 7 8 9 10
4) 0 1 2 3 4 5 4 3 2 1 0
в задаче требуется написать программу которая по двум заданным числам находила бы в диапазоне между этими числами все простые числам где простое число которое имеет всего лишь два делителя то есть оно делится на единицу и на само себя и больше оно не на что не делиться например -3 7 11 помогите )) олимпиада по инфе )) даю максимум баллов ))
Дана матрица А[8,8] четных чисел натурального ряда (от 2 до 128).
1)Заполнить и записать матрицу.
2)Определит число элементов больших 18 и меньших 60. заменить их на 0.затем записать получившуюся матрицу.
3)Определить произведение главной диагонали и вывести эти элементы на экран.
4)Реализовать определение суммы элементов любого столбца.
Спасибо.