В новом массиве определить полусумму первого и последнего элементов

@vlad161ru · Регистрация: 18.02.2013

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

Сформировать новый массив B(N) из заданного массива A(N) последовательным умножением всех элементов на третий элемент массива A(N). В новом массиве B(N) определить полусумму первого и последнего элементов.

@Gidroboom · 25.02.2013, 20:00

Сообщение от vlad161ru

Сформировать новый массив B(N) из заданного массива A(N) последовательным умножением всех элементов на третий элемент массива A(N). В новом массиве B(N) определить полусумму первого и последнего элементов.

Pascal

  const n=10;
  var a:array[1..n] of integer;
      b:array [1..n] of integer;
      q:real;
      i:integer;
      
   begin
    randomize;
    
    for i:=1 to n do begin
    a[i]:=random(100)-10;
    write(a[i],' ');
    end; 
    writeln;
    for i:=1 to n do
    begin
      b[i]:=a[i]*a[3];
      
      write(b[i],' ');
     end;
    q:=(b[1]+b[n])/2;
    writeln;
    write('Полусумма первого и последнего элемента= ',q);
    readln;
    end.

@vlad161ru 0 / 0 / 0 Регистрация: 18.02.2013 Сообщений: 4
		1
	В новом массиве определить полусумму первого и последнего элементов 25.02.2013, 18:23. Показов 1385. Ответов 1 Метки нет (Все метки) Сформировать новый массив B(N) из заданного массива A(N) последовательным умножением всех элементов на третий элемент массива A(N). В новом массиве B(N) определить полусумму первого и последнего элементов. 0

	25.02.2013, 20:00

В новом массиве определить полусумму первого и последнего элементов

Решение