//объявляем все переменные и константы
//константа n, определяющая размер массива
const n = 5;
//делаем предварительное описание тип для массива
type arr = array[1..n] of integer; //целочисленный тип для примера. Можно использовать и вещественный, если потребуется
//и объявляем остальные переменные (включая сам массив)
var
a: arr;
i, sum: integer; //i - переменная цикла, sum - сумма элементов
average: double; //тип может быть любым вещественным
begin
//вводим элементы
<span> writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);</span>
//инициализируем переменную sum
sum := 0;
//далее собственно вычисление
<span> for i:=1 to m do
begin
if (i mod 2) = 0 then //проверка на чётность номера элемента
sum := sum + a[i]; //находим сумму элементов для вычисления среднего арифметического
end;</span>
// и последний шаг - находим среднее арифметическое. Не забываем, что количество чётных элементов только в 2 раза меньше количества. Поэтому используем div 2, то бишь делим без остатка на 2. Полученное число и будет количеством чётных элементов в нашем массиве.
average := sum / (n div 2);
writeln('среднее арифметическое чётных элементов равно');
writeln(average);
end.
// PascalABC.NET 3.0, сборка 1088
var
n,i,max,min,s,t,k:integer;
begin
Write('Введите количество членов последовательности: ');
Read(n);
Writeln('Вводите числа через пробел');
max:=-32768; min:=32767; s:=0; k:=0;
for i:=1 to n do begin
Read(t);
if t<min then min:=t
else
if t>max then max:=t;
if t<0 then begin s:=s+t; Inc(k) end
end;
Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5)
end.
<em><u>Тестовое решение:</u></em>
Введите количество членов последовательности: 7
Вводите числа через пробел
25 -6 39 -118 271 24 -15
Min=-118, max=271, ср.арифм.=-46.33333
Самое важное программное обеспеч Те ПО это операционная система
Странное задание...
715 = DCCXV
если поменять обратно (!) третью и четвёртую цифры, то получится DCXCV, что с "римского" опять-таки переводится как 715
<span>с помощью компьютера сегодня бухгалтер готовит отчёт, лётчик управляет самолётом, музыкант занимается аранжировкой произведения, милиционер проверяет документы, можно быстро передовать любую информацию в любую точку земли.<span>Компьютер помогает врачу ставить диагноз и назначать лечение. Помогает художнику создавать картины и мультипликационные фильмы. Инженеры с помощью компьютера ведут сложные расчёты, составляют чертежи новых машин, космических кораблей.</span></span>
