не сказала бы, что это решение сильно отличается от уже имеющегося, но
а) оно совсем немножко удобнее (хотя бы из-за clrscr и вывода ответа с определённым количеством знаков после запятой). а ещё предусмотрена возможность отсутствия таковых чисел.
б)ну не могла я пропустить по паскалю)
program n1; uses crt; const n=10; var a: array[1..n] of integer; i,s,k: integer; beginclrscr; randomize; for i: =1 to n do begin a[i]: =random(10); write(a[i]: 3); if a[i]=i then begin s: =s+a[i]; writeln('s=',s); k: =k+1; end; end; writeln; if k=0 then writeln('таких элементов нет') elsewriteln('среднее арифметическое элементов массива, равных своим индексам, равно ',s/k: 4: 4); readlnend.
Поделитесь своими знаниями, ответьте на вопрос:
Переведите в десятичную систему счисления число 101011 ! ) .