Элементам массива присвоены следующие значения: M[7]: = 3; M[8]: = 17; M[9]: = 9; M[10]: = 9; M[11]: = 2. Затем выполняют следующие команды: С: = 0; for i : = 7 to 11 do if (i mod 2 = 0) then C: = C+ M[i] else C:= C-M[i]; Напиши значение С =

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.

Объяснение:

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.

Пример:
Исходный массив:
     5     8     2    -5    -4
     1   -10     9     1    -4
     8     2    -6    -4    -4
     8     7     3     2     2
min=a[2,2]=-10