Форум умных людей

Нужно составить программу в паскале

В линейной таблицы А (1 .. 10) найти максимальный элемент, стоящий на четных местах, и минимальный элемент, стоящий на не четных местах таблицы

только тело программы не нужно особо расписывать

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

Как то так наверно: ???

const n = 10;
var
    arr: array[1..n] of integer;
    max_num,min_num: integer;
    i, max_index,min_index: byte;
 
begin
 
    i := 1;
   repeat                       //цикл с постусловием
        write ('Число: ');
        readln(arr[i ]);
        i := i + 1
    until (arr[i-1] = 0) or (i > n);
   
    max_index := 2;                   //поиск максимального элемента в четных позициях таблицы
    max_num := arr[2];
    i := 2;
     while i <= n do begin
        if arr[i ] > max_num then begin
            max_index := i;
            max_num := arr[i ];
        i := i + 2
    end;


    min_index := 1;                   //поиск минимального элемента в нечетных позициях таблицы
    min_num := arr[1];
    i := 1;
     while i <= n do begin
        if arr[i ] < min_num then begin
            min_index := i;
            min_num := arr[i ];
        i := i + 2
    end;

 
    writeln ('Max = ',max_num);    //вывод на экран максимального четного элемента
    writeln ('position: ', max_index);
 
    writeln ('Min = ',min_num);  //вывод на экран минимального нечетного элемента
    writeln ('position: ', min_index);
readln
end.

блин, половину из этого мы не учили, ладно как-то выкручусь, всё равно спасибо

а что вы не учили?
тут использованы 2 вида циклов, 2 типа чисел, массив и вывод на экран...
Если мне не изменяет память, то это азы Паскаля

ээ тебе надо уметь объявлять массивы, for/while/until (по выбору) и if.

не верю что этому не учили и задали задание

 for/while этим и пользуюсь

тогда я не понимаю, что может быть непонятно в выше описанном коде

until (arr[i-1] = 0) or (i > n);
эта функция
паскаль я учу пару недель

repeat/until - это тоже самое :)

Это постусловие цикла repeat                       

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

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

а как будущий программист, вы должны понимать, что "повторять вплоть до" и "пока так, делать эдак" - это аналогичные цикличные операции.

извиняюсь если что-то очень глупое
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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

А я - спать :zzz:

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

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

эта задача просто пример для изучения оператора цикла.
на олимпиадную никак не тянет.

Мне кажется, или в этой строке ошибка? :-\
Наверно должно быть  ???



И тут тоже... :-\

Наверно так?

Ай молодца!  :bravo2:  :bigkiss:
Моя школа  :tianchik:

:-[

а Вилли двоечник :tianchik:

А у нас это хорошо  :tianchik:

ссылка (http://ru.wikipedia.org/wiki/%D0%A1%D0%B8%D1%81%D1%82%D0%B5%D0%BC%D0%B0_%D0%BE%D1%86%D0%B5%D0%BD%D0%B8%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F_%D0%B7%D0%BD%D0%B0%D0%BD%D0%B8%D0%B9#.D0.93.D0.B5.D1.80.D0.BC.D0.B0.D0.BD.D0.B8.D1.8F)
Вики знает больше

тогда так:
Вилли хорош :tianchik: :D

Блин, не успел :)