Я надеюсь тебе будет понятно мои каракули
1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
1.Мышкой надавить на пиктограмму следующего файла
2. Клавишами управления курсором перемещать для выделения пиктограммы следующего файла.
Закодируем буквы на цифры таким образом.
А - 0
П - 1
Р - 2
С - 3
У - 4
Если возникает вопрос почему именно так кодируем, то смотрим на начало списка, и первая буква а, потом п и т.д, поэтому именно так кодируем.
Преобразуем начало списка:
1. 0000
2. 0001
3. 0002
4. 0003
5. 0004
6. 0010
Первое слово, в котором нет буквы А - это слово ПППП
Т.к у нас от 0 до 4, то это пятиричная система счисления.
ПППП - 1111 по основанию 5. Переводим в десятичную 156. Но номер этой ячейки больше самой ячейки на 1. Значит будет стоять под номером 157 - это и есть ответ
1. Нельзя использовать точки
2. Нельзя оставлять поле именования пустым
3. Не должно быть символов * / \ | ?