Открыть меню  Поиск

Напишите программу, которая заполняет массив из N = 10 случайными числами в диапазоне [-10,10], выводит его на экран, а затем находит индекс последнего элемента, равного введённому числу X. Программа должна вывести ответ «не найден», если в массиве таких элементов нет. — Правильный ответ на вопрос найдете ниже

  ·    4

Ответ: Спасибо, но мне бы на паскале(

Ответ: Попробую сейчас еще на паскале написать

Ответ: а нет, не попробую, я его не помню (

Ответ: ну ладно(

Напишите программу, которая заполняет массив из 20 элементов и находит в нём минимальный из чётных элементов и его номер. Предполагается, что в массиве есть чётные элементы. — Правильный ответ на вопрос найдете ниже

  ·    1

Ответ: PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(20, -50, 50);

 a.Println;

 var min := a.Where(t -> t.IsEven).Min;

 var i := a.IndexOf(min);

 Writeln(‘a[‘, i + 1, ‘] = ‘, min)

end.

Пример

39 -37 21 13 26 1 37 -19 21 39 -34 -23 22 46 8 -6 -21 39 47 32

a[11] = -34

Оставить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Поиск по сайту