Записать фрагмент программы на паскале для вывода значений элементов одномерного массива на экран монитора

For i: =1 to n do write(a[i],' '); i - индексы a - массив

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandomreal(readinteger('длина вектора а=',50); a.println;   var b: =arrrandomreal(readinteger('длина вектора b=',50); b.println;   var c: =(a.where(x-> x> 0).count)> (b.where(x-> x> 0).count);   writeln(c) end. пример длина вектора а= 5 11.2705506669686 48.3210324301948 42.773549674439 43.1555606858598 -18.5803525469174 длина вектора b= 6 15.3481486557741 -19.0451312200376 -19.2453642232555 -11.3293506025008 48.204669308944 32.6231040445264 true

Отдел +; использует вывод из "", приём; пер   n, сч, ч, кв: цел; указ   n : = приём.число();   от сч : = 0 до n вып     кв : = сч * сч;     ч : = сч;     кольцо         пока ч > 0 и кв > 0 вып         если ч остаток 10 # кв остаток 10 то           выход         кон;         ч : = ч делить 10;         кв : = кв делить 10       кон;       вывод.чцел("^%d", сч, 0, 0, 0)     кон   кон кон . отдел "приём", раз уж издатель не успел его включить в выпуск (хотя стоило бы рассматривать это как стандартный ввод): отдел приём;   использует     ос из "",     кос из "",   ввод из "",     вывод из "",     знак из "";   строка-(строка+: ряд из знак);   (* текстовая строка *)   пер     отклавиш:   ввод.отклавиш;     отмышки: ввод.отмышки;     счётчик: цел;   указ     счётчик : = 0;     кольцо       если кос.опрос(отклавиш, отмышки) = ввод.клавиши то         если отклавиш.знак = 0dx то           если счётчик < размер(строка) то строка[счётчик] : = 0x кон;           выход         аесли отклавиш.код = 08h то             если счётчик > 0 то               строка[счётчик-1] : = 0x; уменьшить(счётчик);                 вывод.знакцепи(отклавиш.знак); вывод.знакцепи(" ");                 вывод.знакцепи(отклавиш.знак)             кон         аесли (отклавиш.код = 2dh) и (ос.размерцепочкиобменника() # 0) то           пока счётчик > 0 вып             строка[счётчик-1] : = 0x; уменьшить(счётчик);             вывод.знакцепи(8x); вывод.знакцепи(" "); вывод.знакцепи(8x)           кон;           ос.цепочкуизобменника(строка);           если ос.размерцепочкиобменника() > размер(строка) то             счётчик : = размер(строка)           иначе счётчик : = ос.размерцепочкиобменника() кон;           вывод.цепь(строка)         аесли отклавиш.знак = 0x то         иначе           если счётчик < размер(строка) то             строка[счётчик] : = отклавиш.знак;               увеличить(счётчик);               вывод.знакцепи(отклавиш.знак)           кон         кон       иначе ос.спать(50) кон     кон кон строка;   : цел; (* целое число *) пер     отклавиш: ввод.отклавиш;     отмышки: ввод.отмышки;     счётчик, сч: цел;     результат: цел;     буфер: доступ к ряд из знак;     отрицательное: ключ; указ     результат : = 0; счётчик : = 0; отрицательное : = откл;     кольцо       если кос.опрос(отклавиш, отмышки) = ввод.клавиши то         если отклавиш.знак = 0dx то           если отрицательное то возврат -результат иначе возврат результат кон         аесли отклавиш.код = 08h то           если счётчик > 0 то           результат : = результат делить 10;             вывод.знакцепи(отклавиш.знак); вывод.знакцепи(" "); вывод.знакцепи(отклавиш.знак); уменьшить(счётчик)         аесли отрицательное то           отрицательное : = откл;           вывод.знакцепи(отклавиш.знак); вывод.знакцепи(" "); вывод.знакцепи(отклавиш.знак)         кон         аесли (отклавиш.код = 2dh) и (ос.размерцепочкиобменника() # 0) то           пока счётчик > 0 вып             уменьшить(счётчик); вывод.знакцепи(8x); вывод.знакцепи(" "); вывод.знакцепи(8x)           кон;           если отрицательное то           отрицательное : = откл; вывод.знакцепи(8x); вывод.знакцепи(" "); вывод.знакцепи(8x)         кон;         результат : = 0;           создать(буфер, ос.;           ос.цепочкуизобменника(буфер^);           если (буфер[0] > = "0") и (буфер[0] < = "9") то             результат : = результат * 10 + (вцел(буфер[0]) - вцел("0"));             вывод.знакцепи(буфер[0]); увеличить(счётчик)           аесли буфер[0] = "-" то вывод.знакцепи("-"); отрицательное : = вкл кон;         от сч : = 1 до размер(буфер^)-1 вып             если (буфер[сч] > = "0") и (буфер[сч] < = "9") то               результат : = результат * 10 + (вцел(буфер[сч]) - вцел("0"));               вывод.знакцепи(буфер[сч]); увеличить(счётчик)             кон           кон;           буфер : = пусто         аесли (отклавиш.знак = "-") и (не отрицательное) то           если результат = 0 то отрицательное : = вкл; вывод.знакцепи("-") кон       аесли отклавиш.знак = 0x то         аесли (результат < макс(цел) делить 10) и ((отклавиш.знак > = "0") и (отклавиш.знак < = "9")) то           результат : = результат * 10 + (вцел(отклавиш.знак) - вцел("0"));           вывод.знакцепи(отклавиш.знак); увеличить(счётчик)         кон       иначе ос.спать(50) кон     кон кон число;   ждать-; (* простаиваем, пока не будет нажата любая клавиша *) пер     отклавиш: ввод.отклавиш;     отмышки: ввод.отмышки; указ     пока кос.опрос(отклавиш, отмышки) # ввод.клавиши вып       ос.спать(50)     кон кон ждать;   кон приём.