Подсчитать количество элементов одномерного массива, которые со своим номером

138

419

Посмотреть ответы 2

Ответы на вопрос:

trushinaveronic

Информатика

4,8(80 оценок)

Такая ситуация выпадает не часто, поэтому запускай программу несколько раз подряд. можно повысить вероятность, но это усожнит программу. var i, n: integer; k: array[1..10]of integer; begin for i : = 1 to 10 do begin k[i] : = random(10)+1; write(k[i],' '); if k[i]=i then n: =n+1; end; writeln; writeln('число искомых элементов: ',n) end.

Anutka87igorevna

Информатика

4,8(47 оценок)

1мм = 0,0393701 дюйма! 1 дюйм = 25.4 мм 1) var m,d: real; begin write('введите длину (в мм): '); readln(m); d: =m*0.0394; writeln(m,' мм = ',d: 8: 4,' дюйма(ов)'); end. 2) var m,d: real; begin write('введите длину (в мм): '); readln(m); d: =m/25.4; writeln(m,' мм = ',d: 8: 4,' дюйма(ов)'); end. пример: введите длину (в мм): 5 5 мм = 0.1970 дюйма(ов)