type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin randomize; n: =10; for i: = 1 to n do begin x[i]: =random(n*10)- 10*n div 2 ; write(x[i]: 4); if i mod 10=0 then writeln; end; min: =1; max: =1; for i: = 1 to n do begin if x[i]< x[min] then min: =i; if x[i]> x[max] then max: =i; end; i: =x[min]; x[min]: =x[max]; x[max]: =i; writeln; for i: = 1 to n do begin write(x[i]: 4); if i mod 10=0 then writeln; end; end.
Ответ дал: Гость
запишу на обычном языке, паскаль не помню уже.
а - первое число. б - второе число.
если а больше б и б div 5=0 тогда выводится на экран (' б наименьшее число и нацело делится на 5')
если б больше а и а div 5=0 тогда выводится на экран (' а наименьшее число и нацело делится на 5')
точно не помню как выглядит это в паскале, но что-то типо такого
if a< b and a div 5=0 then writeln ('а наименьшее число и нацело делится на 5');
if b< a and b div 5=0 then writeln ('б наименьшее число и нацело делится на 5');
Популярные вопросы