В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
MonstorXXXX
MonstorXXXX
16.05.2022 16:14 •  Информатика

Объясните, ! паскаль. решение есть, просто не пойму одну деталь!

звучит так:

дан массив, содержащий 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.

Показать ответ
Ответ:
Викуська2531
Викуська2531
12.11.2021 19:08

Задача 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

0,0(0 оценок)
Ответ:
C#
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) выводишь индекс элемента

в коде все понятно будет, я думаю
но я думаю вам нужен паскаль, но на паскале я не могу с массивами, не люблю я их.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота