Объясните , как решать подобные .заранее ) определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a < 5 then a : = 5;

Во второй строчке видим операторы 'if' и 'then', которые переводятся с как 'если' и 'тогда' соответственно. т. е. если, как бы, перевести вторую строчку на язык, то получим следующее: "если a < 5 тогда" таким находящаяся после then функция выполняется только в том случае, если выражение между if и then верно. разберем фрагмент кода: a : = 10; if a < 5 then a : = 5; понятно, что на первой строчке переменная 'a' приравнивается к 10. затем на второй строчке идет условие a < 5. подставляем 'a': 10< 5 — неравенство не верно, поэтому 'a : = 5; ' не будет выполнено в этой программе, и 'a' не изменилось, и по-прежнему равно 10. рассмотрим еще один фрагмент a : = 15; if a > 10 then a : = 10; в первой строке 'a' приравнивается к 15. затем идет условие a> 10, 15> 10 — верно, поэтому выполняем следующую строку и приравниваем 'a' к 10. в итоге 'a' становится равным 10

паскаль авс:

 

program maxtv; uses crt; const n=10; var  a: array[1..n] of real;   r: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('введите r, не равное 0'); readln(r);   if r< > 0 then      begin          writeln('элементы массива: ');           randomize;               for i: =1 to n do                  begin                      a[i]: =random(100)-50;                       write (a[i]: 7: 2);                   end;               writeln();               writeln('заменяем 2,4,5,9: ');               a[2]: =a[2]/r;               a[4]: =a[4]/r;               a[5]: =a[5]/r;               a[9]: =a[9]/r;               for i: =1 to n do                  write (a[i]: 7: 2)      end   else      writeln('ну вас же просили не вводить 0! ');       end.