Дан одномерный массив размерностью N. Заменить все отрицательные элементы массива числом 0, а положительные - 1. Заполнение массива осуществить с клавиатуры.

первое

заголовок: уходид из дома

4.порощаться

6.выключить свет,газ,

второе

заголовок: приход в квартиру

3.поверни ключ

4.вынь ключ из скважины 

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.