Помогите с паскаль

[JokerMD]

Вот и наступила сессия господа. ( 1 курс ;D ) Задали нам 20 лабораторных работ сделать, 10 уже сделал а остальные и не успеваю и по трудней ( просто не сталкивался еще с такими задачками ) . Кто шарит в паскале просьба помочь, буду очень благодарен ^_^

1. С клавиатуры вводится слова до чтение слова Stop. Вивести на екран слова по возрастанию в лексикографическом смысле.
2.С клавиатуры вводятся N чисел. Вывести только позитивные числа в обратном порядке их введения
3.Считываются с клавиатуры N целых чисел. Показать количество чисел c минимальным значением
и где они находятся в строке
4.Вводится N целых чисел, вывести число созданное из первой цифры каждого элемента. Например 323 5423 54 вывести 355

Следующие напишу позже ) . Жду ответа.

[ZX Spectrum-128]

Readln(n);
S:=inttostr(n);
For i:=1 to length(s) do
 If s[i]='5' then
  Write('yes');

[Serge_Bliznykov]

ещё парочка вариантов для коллекции

ReadLn(n);
WriteLn(Pos('5', IntToStr(n))>0);

ReadLn(n);
est5 := false;
while (n<>0) and Not est5  do begin
   est5 := est5 or (abs(n) mod 10 = 5);
   n := n div 10
end;
WriteLn(est5);

[Аватар]

Вот и наступила сессия господа. Задали нам 20 лабораторных работ сделать

Это все 20 единовременно задали именно к сессии? Или все таки задавали в течение семестра, а делать только в сессию взялся? Тогда да, 1-ый курс одновременно будет последним курсом. При большой, очень большой удаче, им станет второй курс

[JokerMD]

Сообщение от Аватар

Это все 20 единовременно задали именно к сессии? Или все таки задавали в течение семестра, а делать только в сессию взялся? Тогда да, 1-ый курс одновременно будет последним курсом. При большой, очень большой удаче, им станет второй курс

Нет, вот именно что задали их нам пару дней назад.

Всем спасибо кто помог

Еще парочку.
1. С клавиатуры вводится слова до чтение слова Stop. Вивести на екран слова по возрастанию в лексикографическом смысле.
2.С клавиатуры вводятся N чисел. Вывести только позитивные числа в обратном порядке их введения
3.Считываются с клавиатуры N целых чисел. Показать количество чисел c минимальным значением
и где они находятся в строке
4.Вводится N целых чисел, вывести число созданное из первой цифры каждого элемента. Например 332 5423 54 вывести 355

[ZX Spectrum-128]

В 4-й что-то не так. По условию задачи, должен быть вывод: 355

[JokerMD]

Сообщение от ZX Spectrum-128

В 4-й что-то не так. По условию задачи, должен быть вывод: 355

Да, сори ошибся.

[ZX Spectrum-128]

4-я:

S:='';
For i:=1 to n do
Begin
 Readln(a);
 t:=inttostr(a);
 S:=s+t[1];
End;
A:=strtoint(s);

[JokerMD]

Закрывайте, сдал сессию Всем спасибо за помощь.