Pascal: с клавиатуры вводятся n целых чисел в диапозоне [-100.. 100] найти максимальное число кратное 5 из введенных

Сначала спрашивайте у пользователя число n, потом заполняйте массив (с проверкой на [-100..100]), потом в цикле проверяйте каждый элемент массива на кратность 5. параллельно с проверкой на кратность (в том же цикле) кидайте первое кратное число в переменную max, и сравнивайте с это переменной другие числа, кратные 5. если больше - перезаписываете значение max цикл: (counter - счетчик, n - колво чисел в массиве) max : = 0; for counter = 1 to n do if (massive[counter] mod 5) = 0 then         if massive[counter] > max  then max : =  massive[counter]; в конце выводите max

Program stroka; var   s: string;   i, k: integer;   c: char; begin   readln(s);   c : = s[1];   i: =1;   while i< =length(s) do       if (s[i]=',') or (s[i]='.') then       begin           if s[i-1]=c then inc(k);           if s[i]=',' then c : = s[i + 1]           else c: ='.';           i: =i+2       end       else inc(i);   writeln(k);   readln end.

Объяснение:

Язы́к программи́рования — формальный язык, предназначенный для записи компьютерных программ. Язык программирования определяет набор лексических, синтаксических и семантических правил, определяющих внешний вид программы и действия, которые выполнит исполнитель (обычно — ЭВМ) под её управлением

IDE (англ. Integrated Drive Electronics) — параллельный интерфейс подключения накопителей (гибких дисков, жёстких дисков и оптических дисководов) к компьютеру. В 1990-е годы был стандартом на платформе IBM PC; в настоящее время вытеснен своим последователем — SATA — и с его появлением получил название PATA (Parallel ATA).