Если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0

@Владимир Пермь · Регистрация: 04.07.2013

2. Из одномерного числового массива размерности n создать новый одномерный массив по правилу: если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0.

@sobakabobik · 05.07.2013, 05:37

Pascal

uses
  crt;
 
var
  i, q, r: word;
  sum: integer;
  m, n: array [1..30] of smallint;
 
begin
  write('Контрольное число: ');
  readln(q);
  write('Размерность массива (<=30): ');
  readln(r);
  writeln('Исходный массив:');
  randomize;
  for i := 1 to r do
  begin
    m[i] := round(random(30) - 15);
    write(m[i], ' ');
    if m[i] = q then n[i] := 1 else n[i] := 0;
  end;
  writeln;
  writeln('Конечный массив:');
  for i := 1 to r do
    write(n[i], ' ');
  readln;
end.

@Владимир Пермь 0 / 0 / 0 Регистрация: 04.07.2013 Сообщений: 8
		1
	Если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0 04.07.2013, 19:00. Показов 1314. Ответов 1 Метки нет (Все метки) 2. Из одномерного числового массива размерности n создать новый одномерный массив по правилу: если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Если соответствующий элемент в исходном массиве равен заданному, то в новом массиве соответствующий элемент -1, в противном случае - 0

Решение