begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=ReadInteger('k='); if a.ElementsByRow.Any(t->t>k) then Writeln('Есть') else Writeln('Нет') end.
В этой проге 1,2,3 program p1; uses crt; var a:array [1..10] of integer; i,k,s,p,min,max,k2:integer; begin P:=1; s:=0; for i := 1 to 10 do begin a[i]:= random(31); write(a[i]:4); end; writeln; min:=a[1]; max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin min:=a[i]; k:=i; end;
s:=a[i]+s; p:=a[i]*p;
If max<a[i] then max:=a[i]; K2:=i; end; writeln('МИнимальное число:',min,' номер :',k); writeln('Сумма :',s,' Произведение :',p); for i:=1 to 10 do begin If a[i] <> max then write(a[i]:3) else write(' 999'); end; writeln; writeln('Максимальное число :',max,' номер ',k2); end.
Вот 4; program p2; uses crt; var a:array [1..10] of integer; i,p:integer; begin P:=1; for i := 1 to 10 do begin a[i]:= random(60)-30; write(a[i]:4); end; writeln; p:=1; for i:=1 to 10 do begin If a[i] < 0 then p:=p*a[i]; ; end; writeln('Произведение :',p); end.
Решение на листочке