Последовательный поиск

@Korbann · Регистрация: 03.11.2016

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

В векторе С найти элементы, значение которых считаем по формуле: C[i]:=2*min.

@ZX Spectrum-128 · 20.02.2017, 18:19

Pascal

const
  n = 100;
 
type
  vector = array[1..n] of integer;
 
var
  c: vector;
  mn, i, k: integer;
 
function Min(c: vector; k: integer): integer;
var
  i, mn: integer;
begin
  mn := c[1];
  for i := 2 to k do
    if c[i] < mn then 
      mn := c[i];
  Min := mn;
end;
 
begin
  write('Введите размерность вектора: ');
  readln(k);
  writeln('Исходный вектор:');
  for i := 1 to k do
  begin
    c[i] := random(k) + 1;
    write(c[i]:4);
  end;  
  writeln;
  mn := min(c, k);
  writeln('Min: ', mn);
  writeln('Элементы, значение которых считаем по формуле:');
  for i := 1 to k do
    if c[i] = 2 * mn then
      write(c[i]:4);
end.

@Korbann · 20.02.2017, 19:09 **[ТС]**

ZX Spectrum-128, Спасибо

@Korbann 2 / 2 / 1 Регистрация: 03.11.2016 Сообщений: 40
		1
	Последовательный поиск 20.02.2017, 17:56. Показов 2546. Ответов 2 Метки нет (Все метки) В векторе С найти элементы, значение которых считаем по формуле: C[i]:=2*min. 0

@Korbann 2 / 2 / 1 Регистрация: 03.11.2016 Сообщений: 40
	20.02.2017, 19:09 [ТС]	3
	ZX Spectrum-128, Спасибо 0

Последовательный поиск

Решение