Const n=4; m=5; var a:array [1..n,1..m] of integer; i,j,min,imin,jmin:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:6); end; writeln; end; min:=a[1,1]; imin:=1;jmin:=1; for i:=1 to n do for j:=1 to m do if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; writeln('min=a[',imin,',',jmin,']=',min); end.
PascalABC.NET
#1
begin
PartitionPoints(-10, 10, 20).Tabulate(p -> 5*(p**2) + 2*p).Println;
end.
#2
begin
var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;
var x := ReadInteger('Считаем это число: ');
A.Where(p -> p = x).Count.Println;
end.
#3
function IsNumberContainsDigit(number:integer; digit: char):boolean;
begin
var stringnumber := number.ToString;
if stringnumber.contains(digit) then IsNumberContainsDigit:=True else IsNumberContainsDigit := False
end;
begin
var (a, b) := ReadInteger2('a, b: ');
var rng := Range(a, b);
rng.Where(p->IsNumberContainsDigit(p, '0')).Print;
end.
Объяснение: