Обработка и преобразование числовых последовательностей

@odmondo · Регистрация: 26.02.2013

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

Обработать и преобразовать числовые последовательности.

@metopa · 23.04.2013, 23:55

Pascal

program task;
const
  n = 16;
  h = 8;
var 
  a: array[1..n] of real;
  i: integer;
  ans_1: real;
  ans_2: array [1..h] of real;
  ans_3: array[1..2] of integer;
begin
  for i:=1 to n do
    readln(a[i]);
  ans_1:=a[1]+a[16];
  for i:=2 to h do
    if a[i]+a[n-1+1]>ans_1 
      then ans_1:=a[i]+a[n-1+1];
  for i:=1 to h do
    ans_2[i]:=a[i]*a[i+h];
  for i:=1 to n do
    if (a[i]>=e) and (a[i]<=pi)
      then inc(ans_3[1])
      else inc(ans_3[2]);
  writeln(ans_1);
  for i:=1 to h do
    write(ans_2[i],' ');
  writeln;
  writeln(ans_3[1],' ',ans_3[2]);
end.

@odmondo 1 / 1 / 0 Регистрация: 26.02.2013 Сообщений: 34
		1
	Обработка и преобразование числовых последовательностей 23.04.2013, 22:27. Показов 1264. Ответов 1 Метки нет (Все метки) Обработать и преобразовать числовые последовательности. Миниатюры 0

	23.04.2013, 23:55

Опции темы

Обработка и преобразование числовых последовательностей

Решение