Паскаль

[matrinishna]

здраствуйте! вот наслышана о вашем сайте, оч много хороших отзывов. поэтому и решила обратиться к вам по поводу решения нескольких задач по паскалю.


Minmax26.Дно целое число N и набор из N целых чисел. Найти максимальное количество четных чисел в наборе, идущих подряд. Если четные числа в наборе отсутствуют, то вывести 0.
Minmax19. Дано целое число N и набор из N целых чисел. Найти количество минимальных элементов из данного набора.
Array26. Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести 0, если нет,
то вывести порядковый номер первого элемента, нарушающего закономерность.
Array19. Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов Aк, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0.

[R_G]

айсикью 362306570. могу помочь.

[Serge_Bliznykov]

айсикью 362306570. могу помочь.

А где Вы тут увидели готовность оплачивать Ваши услуги?!
R_G, у меня к Вам будет просьба - есть такой раздел - "Фриланс", туда идут, когда готовы платить за решение своих задач.
Вы же во все темы куда можно и куда нельзя вставляете свою рекламу.. (только сегодня в 6 тем вставили свою "айсикью"

Прошу умерить пыл, если не имеете желания, возможности оказывать помощь - просто пройдите мимо..

[Kingdom_Reborn]

ну вот как бы так

program lab1;

uses Crt;

const Nmax = 100;

var
  N, q, k1, k2, i: Integer;
  A: Array[1..Nmax] of Longint;
begin
  ClrScr;
  WriteLn('Введите N');
  ReadLn(N);
  WriteLn;
  WriteLn('Введите последовательность из N чисел');
  for i := 1 to N do
    Read(A[i]);
  k1 := 0;
  k2 := 0;
  for i := 1 to N - 1 do
    if (A[i] mod 2 = 0) and (A[i + 1] mod 2 = 0) then
      Inc(k1)
    else
      if k1 > k2 then begin
        k2 := k1;
        k1 := 0;
      end;
  if k2 > k1 then k1 := k2;
  WriteLn;
  WriteLn('Ответ:');
  WriteLn(k1);
  ReadKey;
end.

program lab2;

uses Crt;

const Nmax = 100;

var
  N, i, k: Integer;
  A: Array[1..Nmax] of Longint;
  Min: Longint;
begin
  ClrScr;
  WriteLn('Введите N');
  ReadLn(N);
  WriteLn;
  WriteLn('Введите последовательность из N чисел');
  for i := 1 to N do
    Read(A[i]);
  Min := A[1];
  for i := 2 to N do
    if Min > A[i] then Min := A[i];
  k := 0;
  for i := 1 to N do
    if A[i] = Min then Inc(k);
  WriteLn;
  WriteLn('Ответ:');
  WriteLn(k);
  ReadKey;
end.

program lab3;

uses Crt;

const Nmax = 100;

var
  N, i, k: Integer;
  A: Array[1..Nmax] of Longint;
begin
  ClrScr;
  WriteLn('Введите N');
  ReadLn(N);
  WriteLn;
  WriteLn('Введите последовательность из N чисел');
  for i := 1 to N do
    Read(A[i]);
  k := 0;
  for i := 1 to N - 1 do
    if not ((A[i] mod 2 = 0) and (A[i + 1] mod 2 <> 0) or (A[i] mod 2 <> 0) and (A[i + 1] mod 2 = 0)) then begin
      k := i + 1;
      Break;
    end;
  WriteLn;
  WriteLn('Ответ:');
  WriteLn(k);
  ReadKey;
end.

program lab4;

uses Crt;

const Nmax = 100;

var
  N, i, k: Integer;
  A: Array[1..Nmax] of Longint;
begin
  ClrScr;
  N := 10;
  WriteLn('Введите последовательность из 10 чисел');
  for i := 1 to N do
    Read(A[i]);
  k := 0;
  for i := N - 1 downto 2 do
    if (A[1] < A[i]) and (A[i] < A[N]) then begin
      k := i;
      Break;
    end;
  WriteLn;
  WriteLn('Ответ:');
  WriteLn(k);
  ReadKey;
end.