Объясните, ! паскаль. решение есть, просто не пойму одну деталь!
звучит так:
дан массив, содержащий 70 неотрицательных целых чисел. опишите на одном из языков
программирования алгоритм, позволяющий найти и вывести наименьшую нечётную сумму двух
соседних элементов массива. гарантируется, что в массиве есть соседние элементы с нечётной суммой.
исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не
описанные ниже, но разрешается не использовать часть из них.
непонятно: почему мы пишем " (x=0) or " (т.е. почему именно нуля, почему именно такое действие)
const
n = 70;
var
a: array [1..n] of integer;
i,j,x,y: integer;
begin
for i : = 1 to n do
readln(a[i]);
for i : = 1 to (n-1) do
if ((a[i] + a[i+1]) mod 2 = 1) then
if (x = 0)or(x > a[i] + a[i+1]) then
x : = a[i] + a[i+1];
write(x);
end.
Задача 1
var
x1, y1, x2, y2, l: real;
begin
Writeln('Введите значения (x1,y1,x2,y2)');
Read(x1, y1, x2, y2);
l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
Writeln('Расстояние: ', l:3:2);
end.
Тестовое решение:
Введите значения (x1,y1,x2,y2)
2 3 4 5
Расстояние: 2.83
Задача 2
var
a, b, c, p, s: real;
begin
Writeln('Введите ABC');
Read(a, b, c);
P := (a + b + c)/2;
S := Sqrt(p * (p - a) * (p - b) * (p - c));
Writeln('Площадь по Герону: ', S:3:2);
end.
Тестовое решение:
Введите ABC
2 3 4
Площадь по Герону: 2.90
int n = Convert.ToInt32(Console.ReadLine());
int max = 0;
int index = -1;
int [] mass = new int [n];
Random rnd = new Random();
for (int i = 0; i< mass.Length; i++)
{
mass[i] = rnd.Next();
Console.WriteLine(mass[i] + " ");
}
for (int i = 0; i < mass.Length; i++)
{
if (mass[i] > max)
{
max = mass[i];
index = i;
}
}
Console.WriteLine("Индекс наибольшего равен " + index);
короч просто описываю что надо:
1) Заводишь переменные для максимума и индекса
2) Заполняешь массив рандомными числами
3) выводишь массив
4) пробегаешь по массиву, сверяя элементы с максимумом
- если max меньше элемента, то присваиваешь ему элемент и запоминаешь в index номер элемента
5) выводишь индекс элемента
в коде все понятно будет, я думаю
но я думаю вам нужен паскаль, но на паскале я не могу с массивами, не люблю я их.