• даны два одномерных массива целых чисел размерностью (15) и (25), заполненных случайным образом числами из промежутка [-10,30].Найти среди четных чисел наибольшее для каждого массива и сравнить

Ответы 6

  • А код программы отличается на паскале и делфи?
    • Автор:

      jester81
    • 6 лет назад
    • 0
  • Это просто разные версии паскаля. Некоторые вещи отличаются. А PascalABC.Net, особенно 3.2, отличается сильно, потому что он существенно мощнее.
  • Жаль, но все равно спасибо
  • А в паскале можете написать?
  • уже не надо
  • // PascalABC.NET 3.2, сборка 1341 от 20.11.2016begin  var a:=ArrRandom(15,-10,30); a.Println;  var b:=ArrRandom(25,-10,30); b.Println;  var ma:=a.Where(x->x.IsEven).Max;  var mb:=b.Where(x->x.IsEven).Max;  if ma>mb then    WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb)  else    if mb>ma then      WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb)    else Writeln('Максимумы четных элементов в массивах равны ',ma)end.Пример-2 30 -1 19 16 26 21 24 5 19 -3 28 10 11 -914 6 -2 28 26 4 8 -4 -7 28 -4 10 -9 6 29 -10 8 9 26 5 12 23 18 9 20Максимум четных 1-го массива 30 больше 2-го 28
  • Добавить свой ответ

Войти через Google

или

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

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

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