Var
n: integer;
begin
read(n);
case n of
1: writeln('Сварщик, 1 разряд');
2: writeln('Токарь, 2 разряд');
3: writeln('Автоклавщик,3 разряд');
4: writeln('Дробильщик, 4 разряд');
5: writeln('Жаровщик, 5 разряд');
6: writeln('Интонировщик,6 разряд');
7: writeln('Машинисит протектороного агрегата, 7 разряд');
8: writeln('Помощник механика, 8 разряд');
9: writeln('ТУТ САМ НАЙДЕШЬ');
10: writeln('И ТУТ ТОЖЕ');
else writeln('Такого номера нет');
end;
end.
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
Люди, которые делают игры - Программисты
Вариант 2.
подставляем: 2>2(нет,значит ложно - пишем 0)
2>5(нет,ложно - 0)
0V0=0
2<3(истинно - 1)
0----->1 = 1(Истинно)
обратите внимание на таблицы конъюнкции,дизъюнкции и следстия