Задан случайный цифровой массив. Ввести с клавиатуры цифру и вывести на консоль сумму всех цифр в массиве, превышающих введенную.
Сделайте в паскале.

ответ:begin

var n := ReadInteger('n =');

var a := ArrRandom(n, -99, 99);

a.Println;

a.Indices((v, i) -> v.IsOdd).Sum(i -> i + 1).Print

end.

Объяснение:

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..

за 3 шага: 8/2 (в какой части: или 1-4 или 5-8), если 1-4, то 4/2 (в какой части: или 1,2 или 3,4) коля спросил: 1,2? петя сказал: да.   и тут коля угадал: петя загадал числло 2. ну типо того, не знаю, понятно или