Задача по информатике

[loki]

извиняюсь если что-то очень глупое
N - минимальный M - максимальный

const k = 10;
var a: array[1..n] of integer; N,M,i: integer;
begin
writeln ('vvod tab a');
for i=1 to n do read (a)
i:=1; N:=a[1]
while i<k
for i to k-1 do
  begin
  if a<N then N:=a; i:=i+2
  end;
begin
while i<k
i:=2; M:=a[2];
for i to k-1 do
if a>M them M:=a;
i:=i+2;
end;
writeln ('M= ',); writeln('N= ',);
readln
end.

[loki]

я не программист и не будущий, я просто участник олимпиады, хотя и информатика один из моих любимых предметов

[Ленка Фоменка]

извиняюсь если что-то очень глупое
N - минимальный M - максимальный

const k = 10;
var a: array[1..n] of integer; N,M,i: integer;
begin
writeln ('vvod tab a');
for i=1 to n do read (a)
i:=1; N:=a[1]
while i<k
for i to k-1 do
  begin
  if a<N then N:=a; i:=i+2
  end;
begin
while i<k
i:=2; M:=a[2];
for u to k-1 do
if a>M them M:=a;
i:=i+2;
end;
writeln ('M= ',); writeln('N= ',);
readln
end.

Выделила 2 ошибки, которые сразу бросаются в глаза

[loki]

Во втором случае i, а так обычный цикл в чем ошибка?

[Ленка Фоменка]

Может я и ошибаюсь, но цикл
for i to k-1 do
подразумевает увеличение на +1 числа i
поэтому i:=i+2 не уместно в данном случае
И этот вид цикла нам не подходит...

Прошу меня поправить, это было давно и неправда

[Ленка Фоменка]

Во втором случае i, а так обычный цикл в чем ошибка?

Синтаксис данного цикла выглядит так:
for начальное значение счетчика (i:=1)
       to конечное значение счетчика (20)
        do
      begin
        Тело цикла
      end;
У тебя начальное значение в цикле параметру i не присвоено

[loki]

увеличивая 2+2+2... всегда число парное оно по идее должно идти по парным
сначала i:=2 потом i:=i+2

[Ленка Фоменка]

Исходя из твоего кода число i будет увеличиваться на 3

[loki]

но сначала i=1 потом 1+2=3

[Ленка Фоменка]

но сначала i=1 потом 1+2=3

Сам по себе цикл for  увеличивает на каждем круге значение i на +1...
При этом ты еще искусственно на +2 увеличиваешь...Итого на каждом круге +3 получается...

Воспользуйся циклом while
Очень легко и просто в моем примере показано, как с помощью while найди нужные минимальные и максимальные значения...

[loki]

repeat, until мы их не проходили информатик заподозрит...

[Ленка Фоменка]

Очень легко и просто в моем примере показано, как с помощью while найди нужные минимальные и максимальные значения...

Цикл while  вы проходили...

У тебя ошибка в нахождении максимального и минимального элементов...
Заполнение массива, которое я организовала с помощью repeat, until я сейчас даже не смотрю

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

А я - спать

[moonlight]

const N=10;
var A:array[1..N]of integer;
    i:integer;
    min,max:integer;
begin
  min:=1;
  max:=2;
  for i:=1 to N do
  begin
    A:=Random(100);
    Write('A[',i,']=',A,'  ');
  end;
  Writeln;
  for i:=3 to N do
  begin
    if((i mod 2)=1)and(A<A[min])then min:=i
    else if((i mod 2)=0)and(A>A[max])then max:=i
  end;
  Writeln('min=',min,'  A[',min,']=',A[min]);
  Writeln('max=',max,'  A[',max,']=',A[max]);
end.

почемуто вместо A [ i ] копируется-вставляется A

[Вилли ☂]

На случай, если Вы "mod" не изучали:

Код:

# Если t = 1 - нечетные, t = 2 - четные

const k = 10;
var a: array[1..k] of integer; N,M,i,t: integer;

begin
writeln ('Ввод значений:');
for i=1 to k do read (a[i]);
i:=1; N:=a[1]; N:=a[2]; t=1;
for i:=3 to k do
  begin
    if (a[i]<N) AND (t=1)  then N:=a;
    if (a[i]>M) AND (t=2)  then N:=a;
    if(t=1) then t:=2
    else t:=1;
  end;

writeln('Max = ',M);
writeln('Min = ',N);
readln;
end 

[Вилли ☂]

почемуто вместо A [ i ] копируется-вставляется A

используй [ code ] *** [ / code ]