Написать программу для вычисления значения x, использовать процедуру

@Andrew981614 · Регистрация: 20.04.2017

Написать программу, которая вычисляет значение X=3*m, Где M - минимальный элемент одномерного массива A. Для вычисления X использовать процедуру.

@ZX Spectrum-128 · 19.06.2017, 13:45

Pascal

var
  a: array of integer;
  i, n, x, m: integer;
 
procedure proc(m: integer; var x: integer);
begin
  x := 5 * a[m];
end;
 
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);
  setlength(a, n);
  m := 1;
  for i := 0 to n - 1 do
  begin
    a[i] := -n div 2 + random(n);
    if a[i] < a[m] then
      m := i;
    write(a[i]:5);
  end;
  writeln;
  writeln('Min: ', a[m]);
  proc(m, x);
  writeln('X: ', x);
  setlength(a, 0);
end.

@bormant · 20.06.2017, 06:39

Пожалуй имелась в виду чуть более сложная и самодостаточная процедура:

Pascal

procedure proc(const a: array of Integer; var x: Integer);
var e: Integer;
begin
  x:=a[0]; for e in a do if x>e then x:=e;
  x:=x*3;
end;

@Andrew981614 0 / 0 / 0 Регистрация: 20.04.2017 Сообщений: 82
		1
	Написать программу для вычисления значения x, использовать процедуру 19.06.2017, 10:10. Показов 963. Ответов 2 Метки нет (Все метки) Написать программу, которая вычисляет значение X=3*m, Где M - минимальный элемент одномерного массива A. Для вычисления X использовать процедуру. 0

Опции темы

Написать программу для вычисления значения x, использовать процедуру

Решение