• помогите решить через паскаль
    1) массив А вводится с клавиатуры , найти среднее арифметическое его элементов с нечетными номерами, размер произвольный.
    2) массив А вводится с клавиатуры , найти сумму его элементов с четными номерами , произведение отрицательных элементов , количество нечетных элементов , размер произвольный .
    3)найти наибольший элемент и его номер в последовательности , элементы которой вводятся с клавиатуры , размер произвольный .
    4)найти среднее арифметическое элементов последовательности превосходящих некоторое число С, массив задан датчиком случайных чисел на интервале (-44,35),размер произвольный , значение С вводится с экрана

Ответы 1

  • 1) var n,a,kol,sum,i:int64;beginread(n);for i:=1 to n do begin   read(a);   if (i mod 2)=1 then begin                       inc(sum,a);                       inc(kol);                       end;   end;writeln(sum/kol);end.2)var n,a,kol,sum,i,pr:int64;beginread(n);for i:=1 to n do begin   read(a);   if (i mod 2)=0 then begin                       inc(sum,a);                       end;   if a<0 then pr:=pr*a;   if (a mod 2)=1 then inc(kol);   end;writeln(sum,' ',pr,' ',kol);end.3) var ma,n,a,i:int64;beginread(n);for i:=1 to n do begin   read(a);   if (a>ma) then begin                  ma:=a;                  end;   end;writeln(ma);end.
    • Автор:

      nikki69
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years