Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов

@Andryshee · Регистрация: 16.09.2012

Author24 — интернет-сервис помощи студентам

Заполнить массив значениями функции y=7sin(0,4x) для всех значений x от –10 до 10, взятых с шагом 0,5. Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов.

Ребят,помогите написать программу.

@Das Gespenst · 29.10.2012, 17:47

Pascal

program z;
var x,min,s:real; i,k:byte;
a:array [1..40] of real;
begin
     writeln('Èñõîäíûé ìàññèâ: ');
     x:=-10;
     i:=1;
     repeat
           a[i]:=7*sin(0.4*x);
           writeln(a[i],' ');
           i:=i+1;
           x:=x+0.5;
     until x=10;
     writeln;
     i:=2;
     min:=a[2];
     repeat
           if a[i]<min
              then
                  min:=a[i];
           i:=i+2;
     until i=40;
     writeln('Min ýëåìåíò ñ ÷åòíûì èíäåêñîì: ',min);
     s:=0;
     k:=0;
     for i:=1 to 40 do
         if a[i]>0
            then
                begin
                     s:=s+a[i];
                     k:=k+1;
                end;
     writeln('Ñðåäíåå àðèôìåòè÷åñêîå ïîëîæèòåëüíûõ ýëåìåíòîâ: ',s/k);
end.

@Andryshee 0 / 0 / 0 Регистрация: 16.09.2012 Сообщений: 10
		1
	Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов 29.10.2012, 12:29. Показов 1918. Ответов 1 Метки нет (Все метки) Заполнить массив значениями функции y=7sin(0,4x) для всех значений x от –10 до 10, взятых с шагом 0,5. Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов. Ребят,помогите написать программу. 0

	29.10.2012, 17:47

Найти минимальный элемент массива с четным индексом и среднее арифметическое всех положительных элементов

Решение