Прочитав текст, можно легко понять, что проще всего "зацепиться" за его фрагмент "я учился на 12 и 11". Кроме того, нигде не встречается цифр, больших двойки, следовательно основание системы р может быть 3 и более. Допустим, что система оценок была пятибалльной. Пусть p=3, тогда 12(3)=3+2=5, 11(3)=4 и это похоже на реальные числа. При р=4 получаем 12(4)=6 и это уже нарушает наше допущение о пятибалльной системе. Но посмотрим, что даст предположение р=3. 12(3) лет - это 5. 122 года - это 3²+2×3+2 = 17 лет - нормальный возраст для поступления в вуз. 21(3) год - это 3×2+1 = 7 лет - вполне допустимый срок для начала преподавания. 220(3) лет = 2×3²+2×3 = 24 года - путешествие было не коротким... 10011(3) лет = 3⁴+3+1 = 85 лет - вполне почтенный возраст.
Var a: array [1..10] of integer; i,max:integer; begin for i:=1 to 10 do readln a[i]; max:=a[1]; for i:=2 to 10 do if a[i]> max then max:=a[i]; for i:=1 to 10 do begin if a[i]>0 then a[i]:=max; if a[i] >0 then a[i]:=i; end; for i:=1 to 10 do writeln( a[i]); end. 1. Заполняем массив из 10 элементов 2 Считаем условно что первый элемент максимальный 3 В цикле начиная со второго элемента находим максимальный элемент 4 Осуществляем преобразования в цикле с учётом условия 5 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы
Допустим, что система оценок была пятибалльной.
Пусть p=3, тогда 12(3)=3+2=5, 11(3)=4 и это похоже на реальные числа.
При р=4 получаем 12(4)=6 и это уже нарушает наше допущение о пятибалльной системе.
Но посмотрим, что даст предположение р=3.
12(3) лет - это 5.
122 года - это 3²+2×3+2 = 17 лет - нормальный возраст для поступления в вуз.
21(3) год - это 3×2+1 = 7 лет - вполне допустимый срок для начала преподавания.
220(3) лет = 2×3²+2×3 = 24 года - путешествие было не коротким...
10011(3) лет = 3⁴+3+1 = 85 лет - вполне почтенный возраст.
i,max:integer;
begin
for i:=1 to 10 do
readln a[i];
max:=a[1];
for i:=2 to 10 do
if a[i]> max then max:=a[i];
for i:=1 to 10 do begin
if a[i]>0 then a[i]:=max;
if a[i] >0 then a[i]:=i;
end;
for i:=1 to 10 do
writeln( a[i]);
end.
1. Заполняем массив из 10 элементов
2 Считаем условно что первый элемент максимальный
3 В цикле начиная со второго элемента находим максимальный элемент
4 Осуществляем преобразования в цикле с учётом условия
5 Раз у нас задача на замену то осуществляем вывод массива чтобы просмотреть его элементы