Найти минимальный элемент последовательности среди элементов расположенных на четных местах

@doomsteel · Регистрация: 20.09.2013

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

найти минимальный элемент последовательности среди элементов расположенных на четных местах и положительных

@Puporev · 20.09.2013, 08:51

Pascal

uses crt;
var n,a,i,mn,k:integer;
begin
write('Введите размер последовательности n=');
read(n);
writeln('Введите последовательность');
k:=0;
for i:=1 to n do
 begin
  write('a',i,'=');
  read(a);
  if(i mod 2=0)and(a>0)and(k=0)then
   begin
    mn:=a;
    k:=1
   end
  else if (i mod 2=0)and(a>0)and(k=1)and(a<mn) then mn:=a
 end;
if k=0 then write('Нет положительных на четных местах')
else write('Минимальный положительный на четных местах=',mn)
end.

@doomsteel 2 / 2 / 1 Регистрация: 20.09.2013 Сообщений: 121
		1
	Найти минимальный элемент последовательности среди элементов расположенных на четных местах 20.09.2013, 07:11. Показов 2121. Ответов 1 Метки нет (Все метки) найти минимальный элемент последовательности среди элементов расположенных на четных местах и положительных 0

	20.09.2013, 08:51

Найти минимальный элемент последовательности среди элементов расположенных на четных местах

Решение