• Помогите сделать на паскале .
    Кто не знает, лучше ничего не пишите .
    Задача:
    Найти в массиве элементы равные числу заданным пользователем. Подсчитать их кол-во четвертых,вывести номер первого найденого элем-а

Ответы 1

  • // PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var m:=Readinteger('Что ищем?');  var k:=a.FindAll(x->x=m).Count;  Writeln('Найдено таких элементов- ',k);  if k>0 then Writeln('Номер первого такого элемента- ',    a.FindIndex(x->x=m)+1)end.Примерn= 17-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9Что ищем? -9Найдено таких элементов- 2Номер первого такого элемента- 3
    • Автор:

      tesssueb
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years