program fantscrin;
const n =20;
var i,p:integer;
c: array [1..n] of integer;
begin
for i:=1 to n do
c[i]:=i*2+1;
for i:=1 to n do
write(c[i], ' ');
writeln('');
p:=1;
for i:=1 to n do
p:=p*c[i];
writeln(p);
end.
Если Петя прав, то и Вася прав (если файлов не больше 10, то тем более не больше 11), чего по условию быть не может. Тогда Петя не прав, а Вася прав.
Число зараженных файлов <em>более десяти</em> (отрицание слов Пети) и <em>не более одиннадцати</em>. Тогда их ровно одиннадцать.
PascalABC.NET
type mass = array [1..4] of integer;
var a : mass;
i : integer;
function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;
begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.
Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.