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

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

Иван1764
Tatyana Anton1475
emartynova25
arturnanda803
laleonaretouch
mospaskrasnogorbukh
dakimov
gallush9
Nikolai710
rina394992
Ivanova.i.bkrasheninnikov
ИвановнаВладимир1832
ERodina1
akbmaslafarkop3175
guujuu