Сведения о системе;
2) средства диагностики компьютера
3) программа дефрагментации диска
4) средства коммуникации (коммуникационные программы)
5) диспетчеры файлов (файловые менеджеры)
6) средства сжатия данных (архиваторы)
7) антивирусные программы
8) средства обеспечения компьютерной безопасности
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>
Программа должна выглядеть вот так:
program simvol;
const
n=5;
var
A:array[1..n,1 ..n]of integer;
i, j:integer;
Begin;
for i:=1 to n do
begin
for j:=1 to n do
begin
(A[i,j]):=random(100);
write(A[i,j]:4);
end;
writeln;
end;
end.
Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.