Это всё язык Паскаль 1. Найти произведение элементов массива, меньших числа 7. 2. Найти количество тех элементов массива, значения которых положительны и не превосходят заданного числа D. 3. Дан целочисленный массив T(10), элементы которого вводятся с клавиатуры. Найдите индекс элемента в массиве, равного 13. Если такого числа в массиве нет, то выведите на экран соответствующее сообщение.

PascalABC.NET

#1

Begin

 var A := ArrRandom(20, -99, 99);

 A.Where(p -> p < 7).Aggregate(BigInteger.One, (p, q) -> p, q).Println;

end.

#2

Begin

 var A := ArrRandom(20, -99, 99);

 var D := ReadInteger();

 A.Where(p -> (p <= D) and (p>0)).Count.Print;

end.

#3

Begin

 var T := ReadArrInteger(10);

 var f := T.IndexOf(13);

 if f <> -1 then print(f) else print('Такого нет');

end.

Объяснение:

Программы написаны на языке PascalABC.NET v3.5.1; Версия .NET Framework - 4.7.1

Прикладываю исходник и скрин в приложении к ответу.

Несколько замечаний:

1. Большое количество комментариев внесено в код исключительно в учебных целях. В реальную программу переносить не рекомендуется - признак нехорошего тона.

2. У вас допущены синтаксические ошибки в двух последних циклах, а точнее - в операторах If, в которых стоит три условия (объединённых and), но нет ключевого слова "then" и последующих инструкций. Исправил.

3. Так же, автор вашей программы построил на мой взгляд нелогичную структуру алгоритма. Переменные min, min2 и min3, как я догадался, должны хранить три минимальных значения массива.
А вот что происходит в вашей конструкции: первый цикл безошибочно находит наименьший элемент и записывает его в min, а последующие два цикла записывают в min2 и min3 первые попавшиеся(начиная с первого) элементы, если они больше min. Таким образом, нет никакой закономерности в том, что попадёт в эти переменные и сложно представить, для какой задачи потребовались бы такие случайности.

Одним из вариантов решения предлагаю изначально записывать в эти три переменные не значение первого элемента массива, а какое-то большое число, которое в массиве нам не встретится (например 100). Тогда цикл будет искать значения меньше 100 и перезаписывать им соответствующую переменную, пока не найдёт самое маленькое значение. В таком случае не очень стабильная переменная j нам так же не нужна, я её вычеркнул.

Вам отсылаю уже с учётом поправок, однако если вам требовалась именно первоначальная версия несмотря на её минусы, просто поправьте синтаксис в последних циклах (41 и 34 строчка на скрине) и пользуйтесь ей.

Наука Науки бывают разные. Есть батаника астрономия и т. д. Каждая наука изучает что-то. Например батаника изучает растения. Я думаю что очень интересно изучать какую нибудь науку! Образование Мне кажется что образование нужно каждому. Каждый человек должен быть образованным. Для этого нужно ходить в школу. Закончить 9-11 классы и пойти на работу. Культура Тебе наверно известно слово культура. Мне кажется что все люди должны быть культурными. Но к сожалению не все люди могут быть культурными. С культурным человеком приятно общаться.