Если у вектора есть компонента со значением равным в, то все положительные компоненты заменить их квадратами

@Максимway · Регистрация: 17.02.2012

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

если у вектора а(10) есть компонента со значением равным в,то все положительные компоненты заменить их квадратами

@Ev[G]eN · 18.02.2012, 13:44

Pascal

const
  n = 10;
var
  arr: array[1..n] of integer;
  i, b: integer;
  bool: boolean;
begin
  randomize;
  bool:=false;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    arr[i]:=random(20)+1;
    write(arr[i], ' ');
  end;
  writeln;
  writeln('Введите число b: ');
  readln(b);
  for i:=1 to n do
    if arr[i] = b then bool:=true;
  if bool then
  begin  
    writeln('Переделанный массив: ');
    for i:=1 to n do
    begin  
      if arr[i] > 0 then arr[i]:=sqr(arr[i]);
      write(arr[i], ' ');
    end;
  end
  else write('Нет элемента, равного ', b, '!');
end.

@Максимway 3 / 1 / 0 Регистрация: 17.02.2012 Сообщений: 42
		1
	Если у вектора есть компонента со значением равным в, то все положительные компоненты заменить их квадратами 18.02.2012, 12:39. Показов 1713. Ответов 1 Метки нет (Все метки) если у вектора а(10) есть компонента со значением равным в,то все положительные компоненты заменить их квадратами 0

	18.02.2012, 13:44

Опции темы

Если у вектора есть компонента со значением равным в, то все положительные компоненты заменить их квадратами

Решение