Определите значение целочисленных переменных a и b после выполнения фрагмента программы a: =246 b: =(a mod 100)*10 a: = a div 100+b с решением

b = 246/100 остаток * 10 = 460

а = 246/100 частное целое + 460 = 462

Var a,d,count,i: integer; function countday(a: integer): integer; begin if (a> =1) then countday: =31; if (a> =2) then countday: =28; if (a> =3) then countday: =31; if (a> =4) then countday: =30; if (a> =5) then countday: =31; if (a> =6) then countday: =30; if (a> =7) then countday: =31; if (a> =8) then countday: =31; if (a> =9) then countday: =30; if (a> =10) then countday: =31; if (a> =11) then countday: =30; if (a> =12) then countday: =31; end; begin count: =0; write('введите день: '); readln(d); write('введите месяц: '); readln(a); if (a< =0)or(a> 12)or(d< =0)or(d> countday(a)) then writeln('ошшибка в данных! ') else begin for i: =a to 12 do count: =count+countday(i); count: =count-d; writeln('до нового года осталось ',count,' дней'); end; end.

Массив вводится вручную, минимальный элемент указан в той же строке, где найден. program asd; var b: array [1..6,1..5] of integer; i,j,min: integer; begin for i: =1 to 6 do  for j: =1 to 5 do  read(b[i,j]);   for i: =1 to 6 do  begin  min: = b[i,1];     for j: =1 to 5 do    begin if b[i,j]< min then min: =b[i,j];           write (b[i,j],'  ');   end;     writeln ('минимальный элемент равен    ',min);   end;   end.