Создание массива y из массива x с помощью процедуры

@oxmap · Регистрация: 05.09.2011

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

Определить процедуру p (x,y), которая для данного массива чисел x создает
массив y по следующему правилу: пусть m - наибольший элемент среди
x i .
Тогда y i = (x i ) 2 , если x i < m/2 и y i = 0 иначе.

@KaiTheCat · 28.09.2011, 16:37

Pascal

Uses crt;
Const nmax = 100;
Type arr = array[1..nmax] of integer;
Var
  x,y: arr;
  i,n: byte;
 
Procedure p(x: arr; var y: arr);
  var 
    i: byte;
    m: integer;
  begin
    m:=x[1];
    For i:=2 to n do
      If x[i] > m then m:=x[i];
    For i:=1 to n do
      If x[i] < m div 2 then y[i]:=x[i] * 2
  end;
 
Begin
  Clrscr;
  Repeat
    Write('Введите количество элементов массива: ');
    Readln(n)
  Until n in [1..nmax];
  Writeln('Массив X');
  For i:=1 to n do
    begin
      x[i]:=random(101)-50;
      Write(x[i]:4)
    end;
  Writeln;
  p(x,y);
  Writeln('Массив Y');
  For i:=1 to n do write(y[i]:4);
  Writeln
  Readkey
End.

@oxmap 0 / 0 / 0 Регистрация: 05.09.2011 Сообщений: 12
		1
	Создание массива y из массива x с помощью процедуры 28.09.2011, 13:19. Показов 1806. Ответов 1 Метки нет (Все метки) Определить процедуру p (x,y), которая для данного массива чисел x создает массив y по следующему правилу: пусть m - наибольший элемент среди x i . Тогда y i = (x i ) 2 , если x i < m/2 и y i = 0 иначе. 0

	28.09.2011, 16:37

Создание массива y из массива x с помощью процедуры

Решение