В программе используется одномерный целочисленный массив A с индексами от 0 до 10. Значения элементов - id2041597120220518 от fedia24 18.05.2022 18:37

Question

Информатика: В программе используется одномерный целочисленный массив A с индексами от 0 до 10. Значения элементов равны 8, 3, 16, 24, 35, 18, 4, 72, 8, 99, 44 соответственно, т. е. A[0] = 8, A[1] = 3 и т. д. Определите значение переменной c после выполнения следующего фрагмента программы, записанного ниже на пяти языках программирования. n:= 1; s:= 1; for i:=1 to 11 do     if A[i] A[n] then begin          s := s * i;          t := A[i];         A[i] := A[n];          A[n] := t;      end; Решение подробно

fedia24 · Accepted Answer

Var A:Array[1..100] of Word; N,Max_S,i,I_max:Byte; Function Sum_of_figures(p:Word):Byte; var d:Word; S,j:Byte; begin d:=10000; S:=0; For j:=1 to 5 do begin S:=S+(p div d); p:=p mod d; d:=d div 10; end; Sum_of_figures:=S; end; Begin Randomize; Write( N= ); Readln(N); Writeln; Writeln( Initial array: ); For i:=1 to N do begin A[i]:=Random(65535); Write(A[i]:8); end; Writeln; Writeln; Writeln( Sums of figures: ); Max_S:=0; For i:=1 to N do begin Write(Sum_of_figures(A[i]):8); If Sum_of_figures(A[i])...

MOGZ ответил