Условие:
Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых произведение  цифр является двухразрядным числом.

-------------------------------------------------------
const
  max=10000;{max razmer massiva}
type
   mas = array[1..max] of integer;
var x:mas; {ishodniy massiv}
y:mas;   {noviy massiv}
n:byte;  {razmer ishodnogo massiva}
m:byte;  {razmer novogo massiva}
s:string;{vspomogat stroka}
ch:integer;{vspomogat chislo}
i:byte;   {schetchik cikla}
j:byte;   {schetchik cikla}
proiz:integer; {proizvedenie}
err:integer;{oshivka preobrazovania stroki v chislo (vspomogat)}
begin
    writeln('Vvedite razmer massiva');
    readln(n);
    for i:=1 to n do begin
        write('Vvedite element # '); writeln(i);
        readln(x[i]);
    end;
    m:=0;
    for i:=1 to n do begin
        str(x[i],s);
        proiz:=1;
        for j:=1 to length(s) do begin
            val(s[j],ch,err);
            proiz:=proiz*ch;
        end;
        str(proiz,s);
        if length(s)=2 then begin
               m:=m+1;
               y[m]:=x[i];

        end

    end;
    if m<>0 then begin
     writeln('Vivodem massiv proizvedenie cifr kotorogo dvuhrazriadno');
    for i:=1 to m do writeln(y[i]);
    end
    else
    writeln('Znacheniya u kotorih proizvedenie cifr  dvuhrazriadno otsutstvuut');

end.

-------------------------------------
подскажите, что то я напорол, или среда сейчас другая какая то у них в универе, чисто уже самому интересно.

серьезно, ничего не понятно, надо переписать чтобы было понятно ))))

Может двухразрядные определять как от 10 до 99, а не через длину строки

(0) сходу: почему n и m — byte, когда max явно не byte?
и что это за манера оперировать числами через String?

и что за ВУЗ такой, где до сих пор паскаль учат? это всё на python или ruby в две строчки пишется

а что, в школе до сих пор преподают этот атавизм прошлого?

напиши на си шарп, порви преподу крышу

(4)(5) Да наверное ещё пока что везде... =)

Вообще смотря на (0) на первый взгляд всё так!
А что надо было сделать ?  =)

напиши на асме, порви преподу крышу 2

напиши на brainfuck, порви крышу себе О_о

я задачу вообще не понял

Я понял... задание.

Так что там, она делает что надо?  
что не так? Препод вообще должен сказать!

Задача простая.. есть массив. Перемножить все его элементы между собой и если в произведении получается 2 разряда тогда пишем в новый массив

(0) А может имеет смысл сверится с курсом племяшки? Может они там какой-нить метод пузырька изучают :)

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

Паскаль самый лучший язык для обучения.
(0) А оно вообще работает, там на первый взгляд с типами полная задница должна получиться.

(13) Между собой это как) каждый с каждым?

(15) А то что програ работает ее не волновало?

Я понял чё не так  =)

вообще какаята хня написана =) Я бы подругому сделал

(2) да наверно проще, и правильнее
(3) с типами чисто подзабыл, как правильно?

может есть какая среда паскаля посовременнее , я под дос

(16) работает

пылять. да любые цифры перемножь получится двуразрядка

Напомнило:
IF STR(variable)="TRUE" then

(21)1*1

(21) даже если перемножить все цифры в числе 11111? Или 10000? :)

(17) похоже что да

(20) Странно что работает... а насчёт 2 разряда это    
X>= 10 and <= 99 ... что не через преобразование.
Кстати а если будут числа -1 и 5 = у тебя выйдет "-5" = длинна 2

(18) Дык сдавать надо было на листочке, рабочая на компутере это не труЪ

я к тому что задача какая-то мутная

(3)  << и что это за манера оперировать числами через String?

манера програмисста 1С :)

(21) 99 * 99 явно больше 2 разряда

я так понимаю, племяшка учится не на прогера

(0) writeln('Vvedite razmer massiva'); - разве Паскаль с русским не дружит?

(30)нет

(0)Для отделения цифр нужно использовать операторы div  и mod. Строки в данном случае - зло и тормоза.

(28) Кстати наверное надо какой то алгоритм использовать для поиска таких чисел, а не тупо перебором решать. Да и условие какое то мутное.

(29)число<>цифра

Думаю, решать рекурсивно - перемножить элементы исходного массива, из них сформировать второй.
Потом перемножить второй...
На выходе получится фигня - 2-3 элемента, произведение которых всегда будет двузначным.

(31) Ну это явно не самая главная ошибка :)
(32) И я таки думаю что конспектики не мешало бы проверить :) Ибо может быть (34), который они изучали совсем недавно.

(0) на мой взгляд при работе с числами не красиво разрядность числа определять через строку и как и получать цифры

угу, всем спасибо понятно

напомнило
вывести все цифры, которые являются цифрами

(36)Задача-то состоит в том, чтобы брать элементик первого массива, перемножать его циферки. Если в результате получится двухзначное число, то записывать его в новый массив.

сильно тупанул со строками, надо было 9> x <100

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

xmas радует глаз, остальной транслит вызывает резкое отвращение =) 41$|0 уж тогда

(0)
Да уж, произведение цифр определять через строки/символы, это сродни
if(val.toString().length == 4) // "true"

Вот так надо:

Тест = масс[i];
Пр = 1;
Если Тест > 0 Тогда
   Пока Тест > 0 И Пр > 0 Цикл
       Пр = Пр * (Тест % 10);
       Тест = Цел(Тест / 10);
   КонецЦикла;
Иначе
   Пр = 0;
КонецЕсли;

Ну как бы есть только вывод нового массива на экран.
А в памяти этот массив так и остался [1..max]. Т.е. при передаче данных в другой алгоритм будет ошибка.
Массивы переменной размерности вроде уже были в Дельфи 4.

аорпо4лол5
вот такой элемент в одномерном массиве и он может быть введен, произведение чисел в нем равен 20

имхо: нужна проверка является числом

+(46) задачка на массивы скорее всего заводится массив чисел от 0 до 9 в котором ищется. если находится то умножается, смотрим произведение, если попадает в условие то записываем в итоговый массив

(46)
Вы с этим 1С уже с ума посходили :)
Откуда в Паскале в

mas = array[1..max] of integer;

элемент "аорпо4лол5" ?
Он же "of integer"

(48) Тогда все неправильно - в условии нигде нет указания, что элементы массива - числа.

(48) про интежер в условии не сказано

(49)
Наверняка то, что это интежер, понятно из контекста темы, да и "произведение его цифр" как бы намекает...
Вряд ли вам бух в ТЗ пишет - "сумма в колонке должна выводится числом рублей из арабских цифр, далее точка, далее число копеек, двумя арабскими цифрами", а то вы все норовите то римскими, то в hex вывести, то словами.

(4) Надо подстраиваться под уровень за кого делаешь уроки, если студень простейшую задачу не способен осилить, то решить надо, конечно, правильно, но дубовым способом.

(51) Где сказано, что это целые числа, а не вещественные?

(53)
О, прожженый прог - "в ТЗ нет - идите нафиг".
Не тупите, в задачах для племяшек при освоении массивов априори предполагается, что это массив целых чисел.

все не так - из-за того, что лабораторная должна реализовывать динамическое выделение памяти, не?

раз уж "вводим размер массива"

(48) Бгггг. Боюсь, многие одноэсники и не знают, что в этом мире бывает строгая типизация. Многие ведь на 1С программировать учились.

(0) Автор ты тебя русскому в школе что-ли не учили? Пиши код нормально и понятно, а то какие-то непонятные латинские символы

(54) Не, "В ТЗ этого нет - уточните ТЗ".