Tatianamir765654
?>

Турбо паскаль: составить главную программу и функцию. в функции для двух векторов а(n) и в(м), состоящих из целых чисел, найти самое большое число, которое имеется в обоих векторах.

Информатика

Ответы

Альберт Луиза1595
Смотри
Aleksandr740
// 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
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) и в(м), состоящих из целых чисел, найти самое большое число, которое имеется в обоих векторах.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

sinicin80
Koranna1986
VladimirBorisovich
galtig83
svetlanadianowa
iptsr4968
amaraks67
Yevgenevich775
sjmurko
angelina-uj1350
fokolimp
keldastrand
Никита
ilma20168
buslavgroupe