Две задачи на Паскале ABC

[ALEKSEYB]

Две задачи на Паскале ABC

Здравствуйте.Помогите мне в решении 2 задач и в написании блок-схем к ним.

Дан целочисленный массив A размера 10. Вывести номер первого и последнего из тех его элементов A, которые удовлетворяют двойному неравенству: A[1] < A < A[10]. Если таких элементов нет, то вывести 0.


Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.

Заранее большое спасибо тем кто откликнется

 

[Vladimir_S]

Здравствуйте.Помогите мне в решении 2 задач

Помогу со второй.

и в написании блок-схем к ним.

Увы, пас.

Дан целочисленный массив A размера 10. Вывести номер первого и последнего из тех его элементов A, которые удовлетворяют двойному неравенству: A[1] < A < A[10]. Если таких элементов нет, то вывести 0.

Эту детсадовскую ерунду пишите сами - в конце концов, надо же хоть как-то учиться.

Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.

Пожалуйста:

VAR
 S:String;
 I,Code:Integer;
 R:Real;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 Val(S,I,Code);
 If Code=0 then Writeln('1') else
  begin
   Val(S,R,Code);
   If Code=0 then Writeln('2') else Writeln('0');
  end;
 ReadLn;
END.

Заранее большое спасибо тем кто откликнется

Не за что.