В массив B скопировать элементы массива А с противоположным знаком

@Pamagiti · Регистрация: 14.02.2018

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

Из массива А(10) состоящего из 40 вещественных знаков получить массив В, в который войдут все противоположные по знаку элементы массива А. Массив описать в разделе типов, Элементы массива А задать в разделе констант . На экран вывести массив В.
const A: array [1..40] of real = (1, 2 ,3 ,4 ,5 ,6 ,7 ,8, 9 ,10)

@Hitoku · 14.02.2018, 23:30

Pascal

const
  N = 10;
  A: array [1..N] of real = (1, 2, 3, 4, -5, 6, -7, 8, 9, 10);
var
  B: array[1..N] of real;
  i: integer;
begin
  for i := 1 to N do begin
    write(A[i], ' ');
    B[i] := -A[i];
  end;
  writeln;
  for i := 1 to N do
    write(B[i], ' ');
end.

Уж не знаю, как вы организуете вот это через константу

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

const A: array [1..40] of real = (1, 2 ,3 ,4 ,5 ,6 ,7 ,8, 9 ,10)

@Pamagiti 0 / 0 / 0 Регистрация: 14.02.2018 Сообщений: 8
		1
	В массив B скопировать элементы массива А с противоположным знаком 14.02.2018, 20:54. Показов 1350. Ответов 1 Метки нет (Все метки) Из массива А(10) состоящего из 40 вещественных знаков получить массив В, в который войдут все противоположные по знаку элементы массива А. Массив описать в разделе типов, Элементы массива А задать в разделе констант . На экран вывести массив В. const A: array [1..40] of real = (1, 2 ,3 ,4 ,5 ,6 ,7 ,8, 9 ,10) 0

	14.02.2018, 23:30

В массив B скопировать элементы массива А с противоположным знаком

Решение