Question

дана последовательность длинной N 1 N 20 состоящая из целых числе и одного дробного числа в некоторых случаях последовательность может и не содержать дробное число создайтие прогармму котроая отображает позиуию дробного числа в заданной последовательность есть дробь а в противном слуаче выводит ответ no данные ыв программе должны вводиться вертикально

Answer 1

var

 i,n:integer;

 s:real;

 flag:boolean;

begin

 write('Введите длину последовательности: '); readln(n);

 for i:=1 to n do

   begin

     readln(s);

     if s<>round(s) then

       begin

         flag:=true;

         n:=i;

       end;

   end;

 if flag then

   writeln('№ дробного: ',n)

     else writeln('no');

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!