Если паскаль, лови... Во первых для генерации рандомного числа используется метод random(x), но он генерирует число от 1 до x, и чтоб он генерировал от какого то определенного, надо из x вычесть от какого числа генерировать, а потом к сгенерированному прибавить его random(x - n) + n. Где x - До какого числа, а n - от какого. Для нахождения максимального числа мы будем использовать метод max, который принимает два аргумента (какие числа надо сравнить), допустим max(5,10) вернет 10, max(-1, -5) вернет -1. Так же есть min - нахождение минимального. ... А теперь сам код: begin var a := random(30) + 10; var b := random(30) + 10; writeln('a:' + a); writeln('b:' + b); writeln(max(a,b)); end. ... Если не сложно нажми " " ;)
Const m = 3; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..n] of integer; i,j,k,maxm:integer; begin for i:=1 to m do begin for j:=1 to n do begin write('A[',i,',',j,']= '); readln (a[i,j]); if a[i,j]<=0 then b[j]:=-1; end; end;
for i:=1 to n do begin if b[i]=0 then begin writeln('Столбец №',i,' Все положительные'); break; end else if i=n then writeln('Таких столбцов не было'); end; for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end; end.
