Прикладываю исходник и скрин в приложении к ответу.
<u><em>Несколько замечаний:
</em></u><em />1. <em />Большое количество комментариев внесено в код исключительно в учебных целях. В реальную программу переносить не рекомендуется - признак нехорошего тона.
2. У вас допущены синтаксические ошибки в двух последних циклах, а точнее - в операторах If, в которых стоит три условия (объединённых and), но нет ключевого слова "then" и последующих инструкций. Исправил.
3. Так же, автор вашей программы построил на мой взгляд нелогичную структуру алгоритма. Переменные min, min2 и min3, как я догадался, должны хранить три минимальных значения массива.
А вот что происходит в вашей конструкции: первый цикл безошибочно находит наименьший элемент и записывает его в min, а последующие два цикла записывают в min2 и min3 первые попавшиеся(начиная с первого) элементы, если они больше min. Таким образом, нет никакой закономерности в том, что попадёт в эти переменные и сложно представить, для какой задачи потребовались бы такие случайности.
Одним из вариантов решения предлагаю изначально записывать в эти три переменные не значение первого элемента массива, а какое-то большое число, которое в массиве нам не встретится (например 100). Тогда цикл будет искать значения меньше 100 и перезаписывать им соответствующую переменную, пока не найдёт самое маленькое значение. В таком случае не очень стабильная переменная j нам так же не нужна, я её вычеркнул.
Вам отсылаю уже с учётом поправок, однако если вам требовалась <u><em>именно первоначальная версия</em></u> несмотря на её минусы, просто поправьте синтаксис в последних циклах (41 и 34 строчка на скрине) и пользуйтесь ей.
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
Program num1;
Uses crt;
Var
a :array [1..10] of integer;
i : integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']=');readln(a[i])
end;
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('********************************');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
End.
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр
(1г /\ Пс) --> 3c = не(1г /\ Пс) \/ 3c = не(1г) \/ не(Пс) \/ 3г = 1с \/ Пг \/ 3г
1с: <span>Марс
Пг: </span><span>Облако
3г: </span><span>Энот
Ответ: </span><span>Экран.
На проверку?!?</span>