Турбо паскаль: составить главную программу и функцию. в функции для двух векторов а(n) и в(м), состоящих из целых чисел, найти самое большое число, которое имеется в обоих векторах.
// pascalabc.net 3.2, сборка 1488 от 21.06.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(31,16,27); a.println; var s: =a.select((x,i)-> (x,(x-> x[0]).select(x-> x[1]+1); write('семь самых холодных дней: '); s.take(7).println; write('семь самых жарких дней: '); s.takelast(7).println end. пример 17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22 семь самых холодных дней: 12 19 24 1 2 16 18 семь самых жарких дней: 11 14 6 9 10 4 26
eleniloy26
04.07.2022
1dim a(10, 5) randomize timer for i = 1 to 10 for j = 1 to 5 a(i, j) = int(rnd * 10) print a(i, j); s = s + a(i, j) ^ 2 next j print , s next iисправленный вариант (предыдущий находил только суммы квадратов элементов). уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялисьdim a(3, 3)randomize timerp = 1for i = 1 to 3 for j = 1 to 3 a(i, j) = int(rnd * 5) print a(i, j); s = s + a(i, j) ^ 2 next j p = p * s printnext iprintprint "p="; p2 dim a(10)randomize timerp = 1for i = 1 to 10 a(i) = int(rnd * 20) - 10 print a(i); " "; if a(i) > o then s = s + a(i) p = p * a(i) n = n + 1 end ifnext iprintprint "s="; sprint "p="; pprint "kol-vo="; n
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Турбо паскаль: составить главную программу и функцию. в функции для двух векторов а(n) и в(м), состоящих из целых чисел, найти самое большое число, которое имеется в обоих векторах.