Попробую описать ход предполагаемого решения, где большие буквы -имена, а маленькие - профессии, точнее их первые буквы.
Потом пишу номер условия и, в зависимости от него, переставляю имена и профессии на соответствующие позиции.
---
Сначала запишем их так, как в условии:
Б(д) В(с) А(п) Ф(т)
Условия:
1. Просто запоминаем
2. Б(д) В(п) А(с) Ф(т)
3. Просто запоминаем
4. Ф(т) Б(д) В(п) А(с)
5. Просто запоминаем
6. Просто запоминаем
7. Ф(т) А(д) В(п) Б(с)
8. Просто запоминаем.
Проверяем выполнение всех условий, убеждаемся, что все верно.
Ответ:
1-токарь Федор
2-дантист Андрей
3-плотник Виктор
4-слесарь Борис
Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
X=432
Пример на VBA Excel
Код программы можно посмотреть нажав Alt+F11
Const n=14;
var
a,b,c: array[1..n] of integer;
i: byte;
begin
randomize;
for i:=1 to n do begin;
a[i]:=random(-10,10);
b[i]:=random(-10,10);
end;
println (a);
writeln;
println (b);
writeln;
for i:=1 to n do begin;
c[i]:=a[i]*b[n+1-i];
end;
println (c);
end.
---------------------------------
Пример:
9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10
-3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9
-81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30