Написать программу с исаользованием функции. Дано N целых чисел. Подсчитеть количество чисел, в записи которых нет цифры 8.
Answers & Comments
kall1998VarA:Array[1..100] of Word;N,Max_S,i,I_max:Byte;Function Sum_of_figures(p:Word):Byte;vard:Word;S,j:Byte;begind:=10000;S:=0;For j:=1 to 5 dobeginS:=S+(p div d);p:=p mod d;d:=d div 10;end;Sum_of_figures:=S;end;BeginRandomize;Write('N= ');Readln(N);Writeln;Writeln('Initial array:');For i:=1 to N dobeginA[i]:=Random(65535);Write(A[i]:8);end;Writeln;Writeln;Writeln('Sums of figures:');Max_S:=0;For i:=1 to N dobeginWrite(Sum_of_figures(A[i]):8);If Sum_of_figures(A[i])>Max_S thenbeginMax_S:=Sum_of_figures(A[i]);I_max:=i;end;end;Writeln;Writeln;Writeln('Maximal sum of figures (',Max_S,') has the element N',I_max,' equal to ',A[I_max]);Readln;End.
Answers & Comments