Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их среднее арифметическое. (КуМир)
Answers & Comments
Metalmekid
Program ez;var i,d:integer;s:real;a:array[1..10] of integer;begind:=0;for i:=1 to 10 do A[i]:=random(20)+1;write('Сгенерированный массив= ');for i:=1 to 10 do write(A[i]:3);writeln;for i:=1 to 10 do d:=d+A[i];s:=d/10;writeln('Среднее арифметическое= ',s);end.
0 votes Thanks 1
ZczCaverty
Спасибо конечно, но программное обеспечение КуМир, а не Паскаль.
Answers & Comments