Помогите решить, задачи по массивам. внутри
1) Дан одномерный массив, который содержит не более 40 целых чисел. Найти максимальный среди тех, которые стоят на нечетных местах.

2) Дано длинное целое число, содержащие не более 100 цифр. Рассматривать цифры числа, как массив символов. Определить есть ли в этом числе данная цифра.

  • var i,n,m:integer; a:array[1..40]of integer;
    begin
    write('Введите размер массива: '); readln(n);
    writeln('Введите значения элементов массива, разделяя их пробелами');
    for i:=1 to n do read(a[ i]); readln; m:=a[ 1];
    for i:=1 to n do if odd(i)and(a[ i)>m then m:=a[ i];
    writeln(m; readln
    end.

    var s:string[100]; c:char;
    begin
    write('string? '); readln(s); write('char? '); readln(c);
    writeln(pos(c,s)<>0); readln
    end.

Вас заинтересует