Var a,b,c,d:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); if a > b then writeln(a,'больше чем',b); else writeln(a,'Меньше чем',b); end.
Алгоритм сортировки строки массива по возрастанию методом прямого выбора может быть представлен так: 1. Просматривая строку массива от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый — на место минимального. 2. Просматривая строку массива от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй — на место минимального. 3. И так далее до предпоследнего элемента.
Решение:
//Pascal const n = 7;
var a: array[1..n, 1..n] of integer; i, j, min, ind: integer;
//Заполнение массива сл. числами и вывод на экран begin for i := 1 to n do begin for j := 1 to n do begin a[i, j] := random(100); write(a[i, j]:4); end; writeln; end;
//Сортировка строки матрицы прямым выбором
for i := 1 to n - 1 do begin min := a[4, i]; ind := i; for j := i + 1 to n do if a[4, j] < min then begin min := a[4, j]; ind := j; end; a[4, ind] := a[4, i]; a[4, i] := min; end; writeln;
//вывод отсортированной строки for j := 1 to n do begin write(a[4, j]:4); end; end.
Прочитав текст, можно легко понять, что проще всего "зацепиться" за его фрагмент "я учился на 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 лет - вполне почтенный возраст.
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a > b then writeln(a,'больше чем',b);
else writeln(a,'Меньше чем',b);
end.