• Помогите решить в Паскаль
    Ввести массив из 12 вещественных чисел. Найти наибольшее число из элементов с нечетными значениями и вывести на экран.

    Ввести массив из 10 символов(русских букв) удалить из него элементы, равные последнему и предпоследнему символам. Полученный новый массив вывести на экран

Ответы 1

  • // PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrReal(12).Select(x->real(x)).ToArray;  Writeln('Тип массива ',a.GetType);  Writeln('Максимальное нечетное: ',a.Where(x->Trunc(x).IsOdd).Max)end.Пример13 10 22 31 22 6 18 5 26 3 8 24Тип массива System.Double[]Максимальное нечетное: 31// PascalABC.NET 3.2, сборка 1353 от 27.11.2016// Внимание! Если программа не работает, обновите версию!begin  var c:=new Char[10];  for var i:=0 to 9 do c[i]:=ReadlnChar;  var c1:=c[9];  var c2:=c[8];  c:=c.Where(a->(a<>c1) and (a<>c2)).ToArray; c.Println(',')end.Примерапельсинеьа,п,л,с,и,н
    • Автор:

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

Войти через Google

или

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

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

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