Информатика, . паскаль, массивы. задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. найти: 2) произведение элементов, стоящих на чётных местах; 3) количество отрицательных элементов. 4) ввести с клавиатуры 12 элементов числового массива. все положительные увеличить на 100, все отрицательные обнулить.

A: array [1..50] of integer; i, pr, otr: integer; begin randomize; for i : = 1 to 10 do     a[i] : = random(50) - 5; otr : = 0; pr : = a[2]; for i : = 1 to 10 do   begin       if (a[i] < 0) then  inc(otr);       if (i mod 2 = 0) then         pr : = pr * a[i];   end; writeln('отрицательных - ',otr,' произведение - ',pr); for i : = 1 to 12 do   begin read(a[i]); if(a[i] > 0) then inc(a[i],100) else a[i] : = 0; write(a[i],' '); end; end;

Известно что боря жил в одной комнате с мальчиком из кирова и ни один из этих мальчиков не был в москве, ни в санкт-петербурге, то есть боря был не из москвы, не из питера и не из кирова, остаётся-омск. гриша играл в одной команде с мальчиком из москвы, а вечерами к ним заходил мальчик из кирова, значит, точно знаем, что гриша был не из москвы, не из кирова, остаются питер и омск, но мы уже установили, что из омска был-боря, получается, что гриша был из питера.  егор и мальчик из москвы увлекались игрой в шахматы, значит, егор был точно не из москвы, и при этом мы знаем, что омск и питер уже заняты. остался киров у нас остался один город москва и один мальчик, которого зовут витя, значит, витя был из москвы. вывод: витя - москва боря - омск гриша - санкт-петербург егор - киров.

Какой то старанный вопрос, если честно. я тут немного пофантазировал) program zhn; var   a,b,c: integer; begin       write('введте во сколько завалились спать(часов): ');       readln(a);       write('введте во сколько нужно проснуться(часов): ');       readln(b);       if a< b then begin           writeln('спать вам ',(b-a)*60,' минут');       end       else writeln('спать вам ',(24-a+b)*60,' минут');       end.