Задан массив а, состоящий из 11 чисел. найти среднее арифметическое его элементов. элементы массива – случайные числа на отрезке [-11,5].

251

305

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

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

yardeebro

Информатика

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

Var a: array[1..11] of integer; i: integer; k,ar: real; beginrandomize; for i: =1 to 11 do begina[i]: =-11+random(17); write(a[i]: 3); end; writeln; k: =0; ar: =0; for i: =1 to 11 dok: =k+a[i]; ar: =k/11; writeln(ar); end.

UltraTwItTeR

Информатика

4,7(43 оценок)

Var a,a_2,n,j: integer; var i: array [0..10] of real; var sum: real; begin write('числа амстронга: '); for a: =100 to 9999 do begin n: =0; sum: =0; a_2: =a; while a_2< > 0 do begin i[n]: =a_2 mod 10; n+=1; a_2: =a_2 div 10; end; for j: =0 to n-1 do sum: =power(i[j],n)+sum; if (sum = a) then write(a,' '); end; end.