відеокарта-потрібна для виводу зображення на монітор материнська плата-потрібна для поєднування усіх комплектуючих оперативна пам'ять - потрібна для зберігання коду та даних програми під час їхнього виконування блок живлення - потрібен для живлення усіх перерахованих тут комплектуючих звукова карта потрібна для виводу звуку процесор обробка даних по заданій програмі шляхом виконання арифметичних і логічних операцій. програмне керування роботою пристроїв комп'ютера. накопичувач SSD HDD ssd- комп'ютерний запам'ятовувальний пристрій на основі мікросхем пам'яті та контролера керування ними, що не містить рухомих механічних частин. hdd- магнітний диск, основа якого виконана з твердого матеріалу. У більшості виконує функцію енергозбережливого носія інформації
Const n=30; var a: array[1..n] of integer; tek,k,i,j: integer; begin { заполнение массива и вывод на экран } for j:=1 to n do begin a[j]:=Random(20); write(a[j],' '); if (j mod 10 = 0) then writeln; end; writeln; { цикл обработки массива } for i:=1 to n do begin tek:=a[i]; k:=i; { просмотр на повторные } for j:=i+1 to n do begin if (a[j]=tek) then begin a[k]:=0; k:=j; end; end; end; { конец обработки массива } { вывод итогового массива на экран } for i:=1 to n do begin write(a[i],' '); if (i mod 10 = 0) then writeln; end; end.
материнська плата-потрібна для поєднування усіх комплектуючих
оперативна пам'ять - потрібна для зберігання коду та даних програми під час їхнього виконування
блок живлення - потрібен для живлення усіх перерахованих тут комплектуючих
звукова карта потрібна для виводу звуку
процесор обробка даних по заданій програмі шляхом виконання арифметичних і логічних операцій. програмне керування роботою пристроїв комп'ютера.
накопичувач SSD HDD
ssd- комп'ютерний запам'ятовувальний пристрій на основі мікросхем пам'яті та контролера керування ними, що не містить рухомих механічних частин.
hdd- магнітний диск, основа якого виконана з твердого матеріалу. У більшості виконує функцію енергозбережливого носія інформації
var a: array[1..n] of integer;
tek,k,i,j: integer;
begin
{ заполнение массива и вывод на экран }
for j:=1 to n do
begin
a[j]:=Random(20);
write(a[j],' ');
if (j mod 10 = 0) then writeln;
end;
writeln;
{ цикл обработки массива }
for i:=1 to n do
begin
tek:=a[i];
k:=i;
{ просмотр на повторные }
for j:=i+1 to n do
begin
if (a[j]=tek) then
begin
a[k]:=0;
k:=j;
end;
end;
end; { конец обработки массива }
{ вывод итогового массива на экран }
for i:=1 to n do
begin
write(a[i],' ');
if (i mod 10 = 0) then writeln;
end;
end.