Tyrbo Pascal.Циклы.

[AlenA18]

Дана последовательность натуральных чисел а1,а2,...,а20.Определить, есть ли в последовательности хотя бы одно число,оканчивающееся цифрой 7.В случае положительного ответа определить порядковый номер первого из таких чисел.
Даже не знаю с чего начать!Кто знает как делать напишыте,кому не сложно!Заранее Спасибо!!!

[Sazary]

Легко. Создаете массив a из 20 элементов. Заполняете его.
Затем в цикле перебираете элементы.

for i:=1 to 20 do

Нужно проверить последнюю цифру текущего числа. Для этого берем остаток от деления на 10 и сразу смотрим, равен ли он 7:

if a[i] mod 10 = 7 then

выводим его номер и, т.к. нужно только первое число, выходим из цикла:

writeln(i);
break;

[Gapro]

Элементарная программа. Её можно разными способами решить.
Например так:

Program posl;
 Var m: array [1..20] of integer;
     i,d: integer;
     b: string;
Begin
 For i:=1 to 20 Do ReadLn(m[i]);
 For i:=1 to 20 Do Begin
   Str(m[i],b);
   d:=Length(b);
   If b[d]='7' Then Begin 
   WriteLn('nomer ',i);
break;
   end;
 end;
 ReadLn
end.