Впаскалеabc. из 2-ух случайных чисел, одно из которых четное, а другое нечетное определить и вывести на экран нечетное число.

program fantscrin;

   var x_1,x_2:integer;

begin

    write('Введите 1-ое число: '); readln(x_1);

    write('Введите 2-ое число: '); readln(x_2);

     

    if (x_1 mod 2 <> 0) then writeln(x_1)

                        else writeln(x_2);

end.

Program Zadacha1;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
For i := 1 To n Do
a[i] := Random(100);
b := 0;
For i := 1 To n Do
If a[i] Mod 3 = a[i] Mod 5 Then
b := b + 1;
WriteLn('Массив:');
For i := 1 To n Do
Write(a[i], ' ');
WriteLn;
If b > 0 Then
WriteLn('Результат: ', b)
Else
WriteLn('В массиве нет таких чисел');
ReadLn;
End.

Program Zadacha2;
Const n = 10;
Var a: Array [1..n] Of Integer;
b, i: Integer;
Begin
Randomize;
WriteLn('Начальный массив:');
For i := 1 To n Do
Begin
a[i] := Random(100);
Write(a[i], ' ');
End;
WriteLn;
b := 1;
For i := 1 To n Do
If a[i] < a[b] Then
b := i;
a[b] := 3;
For i := 1 To n Do
If i Mod 2 = 0 Then
a[i] := 0;
WriteLn('Конечный массив:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
End.

Uses crt;
const n=4;
m=4;
var a:array[1..n,1..m] of integer;
s,i,j,p:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j] := random(99);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln;
p:=1;
for i:=1 to n do
for j:=1 to m do
if i=j then p:=p*a[i,j];
s:=0;
if (a[1,2]*a[2,3]*a[3,4]=p) then s:=s+a[1,2]+a[2,3]+a[3,4];
if (a[1,3]*a[2,4]=p) then  s:=s+a[1,3]+a[2,4];
if a[4,4]=p then   s:=s+a[4,4];
if (a[2,1]*a[3,2]*a[4,3]=p) then  s:=s+a[2,1]+a[3,2]+a[4,3];
if (a[1,3]*a[2,4]=p) then   s:=s+a[2,1]+a[3,2];
if a[1,4]=p then   s:=s+a[1,4];
writeln(s);
end.