Составить программу нахождения минимума из всех четных чисел, расположенных на нечетных местах в заданном ряде n чисел

@Марат23 · Регистрация: 25.12.2018

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

@ZX Spectrum-128 · 25.01.2019, 10:08

Pascal

var
  n, k, min: integer;
 
begin
  k := 0;
  min := Maxint;
  repeat
    read(n);
    inc(k);
    if (n mod 2 = 0) and (k mod 2 <> 0) and (n < min) then
      min := n;
  until n = 0;    
  if n <> Maxint then 
    writeln('Min: ', min)
  else
    writeln('Нет таких чисел');
end.

@JuriiMW · 25.01.2019, 12:06

Pascal

begin
  var a := ReadArrInteger('числа:',ReadInteger('кол-во:')).Where((n,i)->not odd(i)and not odd(n));
  if a.Count > 0 then a.Min.Println else WriteLn('Нетуть!');
end.

@Марат23 1 / 1 / 0 Регистрация: 25.12.2018 Сообщений: 26
		1
	Составить программу нахождения минимума из всех четных чисел, расположенных на нечетных местах в заданном ряде n чисел 25.01.2019, 09:54. Показов 2360. Ответов 2 Метки минимум, Нахождение, четные, числа (Все метки) Составить программу нахождения минимума из всех четных чисел, расположенных на нечетных местах в заданном ряде n чисел 0

	25.01.2019, 12:06

Опции темы

Составить программу нахождения минимума из всех четных чисел, расположенных на нечетных местах в заданном ряде n чисел

Решение