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*
Комментарий*

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

Alekseeva_Khlistov
Лежачёва355
ranocchio6
kolgatin69
serebrennikova99
chizhenkovd9
Oslopova
leobashkurov1089
zhunina71807
Воронина
info8
Назаров588
rebet61
amarantmetall
tershova