Создать одномерный массив из 10 целых чисел из диапазона от -3 до 15.
Вывести массив на экран.
Найти в этом массиве среднее арифметическое элементов.
ПАСКАЛЬ. У МЕНЯ ЛАБА!!1!
Вывести массив на экран.
Найти в этом массиве среднее арифметическое элементов.
ПАСКАЛЬ. У МЕНЯ ЛАБА!!1!
More Questions From This User See All
Answers & Comments
program prog;
var
b:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do begin
b[i]:=random(-18)+15;
write(b[i], ' ');
sum:=sum+b[i];
end;
writeln();
write('Среднее арифметическое равно ', sum/10:0:2);
end.