дана последовательность длинной N 1 N 20 состоящая из целых числе и одного дробного числа в некоторых случаях последовательность может и не содержать дробное число создайтие прогармму котроая отображает позиуию дробного числа в заданной последовательность есть дробь а в противном слуаче выводит ответ no данные ыв программе должны вводиться вертикально
Answers & Comments
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.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!