Все нормально ток ты ответь на вопрос это у тебя при включение?
Это 100% первый вариант, расширение .exe обозначает какую-либо программу (файлы, необходимые для запуска программы)
а) .exe
Материнская плата. В неё можно вставить периферию для работы(мышь и клавиатура), либо для объединения компьютеры в сеть(локальную) с помощью сетевой карты
Const n = 20;
<span>var a: array[1..n] of integer;
</span><span> i,k,minel: integer;
</span><span>begin
</span><span>//заполнение массива
</span><span>//и вывод массива на экран
</span><span> randomize;
</span><span> writeln('элементы массива:');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(50)-30;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span>//обработка массива и вывод на экран
</span><span> minel:=a[1];
</span><span> for i:=2 to n do
</span><span> if (a[i]<minel) and (abs(a[i]) mod 2 > 0) then
</span><span> begin
</span><span> minel:=a[i];
</span><span> k:=i;
</span><span> end;
</span><span> writeln('номер элемента: ',k,' значение: ',minel);
</span><span>end.
</span><span>
</span>
Uses crt;
const
n = 10;
var
a,b : array[1..n] of integer;
i,j : integer;
begin
randomize;
i := 0;
j := 0;
for i := 1 to n do
begin
a[i] := random(21)-10;
write(a[i],' ');
end;
writeln;
for i := 1 to n do
if (a[i] < 0) and (a[i] mod 2 = 0) then
begin
j := j+1;
b[j] := a[i];
end;
for i := 1 to j do
writeln(b[i]);
readln;
end.
