Если поверить, что Сергей был первым, значит:
1) Сергей первый - верно, Роман второй - ложь
2) Сергей второй - ложь, Виктор третий - правда
3) Леонид второй - верно, Виктор четвертый - ложь
Отсюда следует:
1.Сергей
2.Леонид
3. Виктор
4. Роман
Если поверить, что Роман - второй, то получается, что Леонид и Роман заняли второе место, а это не верно
<span>const n=10;
var a:array [1..n] of integer;
i: integer<span>;
begin</span></span>
<span> randomize;
writeln ("Массив из 10 элементов:');
for i:=1 to n do
begin
a[i]:= random(101);
write (a[i],' ');
end<span>;</span></span>
<span> writeln('Нечетные элементы:');
for i:=1 to n do
if a[i] mod 2<>0 then
write(a[i],' ')<span>;
</span></span><span>end.
</span>
Используем рандом для заполнения массива
// PascalABC.NET 3.3
begin
var a:=ReadArrInteger('Введите год, месяц, число:',3);
Write('S=',a.Sum);
end.
Пример:
Введите год, месяц, число: 2018 3 14
S=2035
Полученная в нужный момент времени информация явлается актуальной или полезной
const T=50;
var a: array [1..T,1..T] of integer;
i,j,n,m:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
for i:=1 to n do
for j:=1 to m do if i=j then a[i,j]:=a[i,j]*2;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end.