дан массив 0из 6 элементов. найти среднее арифметического элементов этого массива. в паскале
10-11 класс
|
const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(20);
s := s + a[i];
write(a[i], ' ');
end;
writeln;
writeln('Среднее арифметическое эл. массива: ', s / n);
end.
Program Tanina_domashka;
i:byte;
summa:integer;
o:array[1..6] of integer;
Begin
Writeln('Массив');
For i:=1 to 6 do
Begin
o[i]:=random(1001)-500;
Writeln('Элемент массива №',i,' = ',o[i]);
End;
For i:=1 to 6 do
summa:=summa+o[i];
Writeln('Среднее арифметическое элементов массива = ',summa/6);
End.
Другие вопросы из категории
a:=2599;
b:=(a mod 10)*1000+26;
a:=(b div 10) mod 100;
1) a=26, b=9026; 2) a=2, b=9026; 3) a=26, b=9926; 4) a=2, b=9926.
варианты ответов: 1) -3 2) 33 3) 18 4)12
Формат ввода и вывода данных:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
0 4 -5 3 10 -4 -6 8 -10 1
Читайте также
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива