<Видеокарта>
1. Что делает видео карта? ответ: Выдаёт изображение.
2. Зачем она нужна? ответ: Она нужна чтобы выводить изображение.
3. Когда была создана видео карта? ответ: В 1981 Специалистами компании IBM
4. Почему видео карта сильно нагревается? ответ: Потому-что импульсы поступают в процессор видео карты и процессор нагревается.
5. Есть ли видео карта в планшетах,телефонах или процессор выводит картинку? ответ: Конечно есть! Только видео карта в телефонах,планшетах очень маленькая!
<Аудио карта>
1. Зачем она нужна? ответ: Она выдаёт аудио сигнал в динамик.
2. Что она делает? ответ: Из информации (010101) Превращает в испульсные сигналы и передаёт их на динамик который уже воспроизводит звук.
3.В каком году она была изобретена? ответ: В 1857
4.Насколько она важна? ответ: Она важна так-как без неё мы бы не смогли слушать песни и т.д.
5. Есть ли она во всех устройствах? ответ: Да,конечно! Сейчас аудио карта даже в колонках есть!
Объяснение:
Вывод:Аудио и Видео карта очень важны для повседневной жизни.
Var a:array[1..n] of integer;
i,indx,k,tr,indxx:integer;
Begin
Randomize;
For i:=1 to n do begin
A[i]:=Random(40)-20;
Write(a[i],' ');
end;
Writeln;
write('0 имеет номер: ');
For i:=1 to n do
Begin
If A[i]=0 thenwrite(i);
end;
Writeln;
indx:=0;
For i:=1 to n do
Begin
If a[i] mod 2=0 then
begin
indx += 1;
a[indx]:=a[i];
end;
end;
Write('Индекс четных элементов: ');
For i:=1 to indx do
write(a[i],' ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
inc(k);
end;
end;
Writeln;
Writeln('Кoличество отрицательных элементов: ',k);
For i:=1 to n do
Begin
If A[i] mod 3=0 then
tr:=a[i];
end;
Writeln('Кратное трем ',tr);
indxx:=0;
writeln('Индексы кратны 3: ');
For i:=1 to n do
Begin
If a[i] mod 3=0 then
begin
indxx += 1;
a[indxx]:=a[i];
write(' ',a[i]);
end;
end;
end.