Решаем задачи Абрамян на Паскале. Array28

Array28. Дан массив $$A$$ размера $$N$$. Найти минимальный элемент из его элементов с четными номерами: $$A_2, A_4, A_6, …$$ .

Решение:

program Array29;
var
 a:array[1..10] of integer;
 N,i,Min:Integer;

begin
 Write('N: ');
 Readln(N);
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;

 i:=2;
 Min:=a[2];
 While (i<=N) do
  begin
   if a[i]<Min then Min:=a[i];
   i:=i+2;
  end;

 Writeln(Min);
end.

program Array29;

var

a:array[1..10] of integer;

N,i,Min:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=2;

Min:=a[2];

While (i<=N) do

begin

if a[i]<Min then Min:=a[i];

i:=i+2;

end;

Writeln(Min);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 1

Bronislav

01.05.2018 в 18:51

// PascalABC.NET begin var a := ReadArrReal(ReadInteger()); a[1::2].Min.Println; end.

1
2
3
4
5

// PascalABC.NET
begin
  var a := ReadArrReal(ReadInteger());
  a[1::2].Min.Println;
end.

// PascalABC.NET begin var a := ReadArrReal(ReadInteger()); a.Where((el,ind)->ind mod 2 = 1).Min.Println; end.

1
2
3
4
5

// PascalABC.NET
begin
  var a := ReadArrReal(ReadInteger());
  a.Where((el,ind)->ind mod 2 = 1).Min.Println;
end.

Ответить

Решаем задачи Абрамян на Паскале. Array28

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ