Данная программа работать не будет, вот исправленная программа:
program a1; // Название программы (a1)var a,b,s: integer; // Список переменных, которые принадлежат типу Innteger;begin // Началоa:=10; //Присвоение к переменной a значение 10.b:=7; //Присвоение к переменной b значение 7.s:=a+b; //Присвоение к переменной s сумму переменной a и b.writeln ('Сумма=', s); //Вывод значения переменной s.
end. //конец
Программа выведет следующее: "Сумма=17".
Var a:array[1..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>writeln('Введите количество элементов массива'); </span>
<span>read(n); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if i mod 3 = 0 then a[i]:=0; </span>
<span>end; </span>
<span>for i:=1 to n do write(a[i],' '); </span>
<span>end.</span>
Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
l = list(map(int,input().split())) # <em>ввод чисел
</em>
a = [] # массив для вторых цифр
for i in range(len(l)):
a.append(l[i] % 10) # <em>заполнение массива вторыми цифрами
</em>
print(l[a.index(max(a))]) # <em>вывод числа, в котором вторая цифра больше </em>