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

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

poch23420
milaudina
angelina-uj1350
oslopovavera
Dmitrievna405
zinasekina4
Корнеплодович1930
Vetroff-11
Yelena_Yuliya1847
beaevgen711
Vasileva
bb495
Татьяна1045
myrisik2490
Kashirina