Var a: string; al: word; i: integer;
begin
writeln ('введите число');
readln (i);
for i: =1 to length(a) do begin
write (chr (al));
end;
end.
что не так? пишут, что параметр цикла for должен описываться в заголовке цикла

все работает нормально

Объяснение:

ты тут код без отступов дал, мб там что-то не так. внизу код с отступами, который я тестил .

если тебе не нравится что выводит на 1 меньше: нумерация массива не с 1 начинается, а с 0. просто добавляй а res (индекс + 1)

Код:

n, m = map(int, input().split())

a= [list(map(int, input().split())) for i in range(n)]

print(a)

k = int(input())

count = 0

res=[]

for i in a:

   for j in range(len(i)):

       if i[j] == 0:

           count += 1

   if count == k:

       res.append( a.index(i))

       break

   else:

       count = 0

if len(res) == 0:

   print(count)

else:

   print(min(res))

ps: лучше так сделай

k = int(input())

line = 0

for i in a:

   count = 0

   for j in range(len(i)):

       if i[j] == 0:

           count += 1

   if count >= k:

       line = a.index(i) + 1

       break

print(line)

Відповідь:

static void Main()

{float[] angles = new float[3];

for(short i=0;i<3;i++){

 Console.WriteLine("Введите значение "+(i+1)+"-го угла:");

 angles[i] = Convert.ToSingle(Console.ReadLine());}

if(angles[0]+angles[1]+angles[2]==180){

 Console.WriteLine("Такой треугольник существует");

 if(angles[0]==90||angles[1]==90||angles[2]==90)

 Console.WriteLine("Он прямоугольный");

 else if(angles[0]<90&&angles[1]<90&&angles[2]<90)Console.WriteLine("Он остроугольный");

    else Console.WriteLine("Он тупоугольный");}

else Console.WriteLine("Такого треугольника не существует(в плоской геометрии)");  

Console.ReadKey(true);

}