Уровень A.
1. Процессор;
2. Тачпад;
3. Floppy disk;
4. Файл;
5. На тип данных, хранящихся в нем;
6. Презентация;
7. rtf, doc, docx, txt;
8. С<span>лужит для размещения данных и промежуточных результатов вычислений в процессе работы ПК, а также размещения программ;
9. К</span><span>омплекс программ ПК, управляющих его работой и обеспечивающих эффективное использование ресурсов системы;
10. Н</span><span>а системное, прикладное, системы программирования;
Уровень B.
1. fami-ly.jpg, car.bmp, dog.gif;
2. Монитор, принтер, клавиатура, флэш-память, колонки;
3. Дискета, CD-ROM, DVD-ROM, жесткий диск;
4. Принтер, колонки, веб-камера, флэш-память, наушники.
5. а, г, д, е;
Уровень C.
1. D:\HOME\HELP\readme.txt;
2. Ване не стоит брать диски 2 и 3, т.к.:
-второй диск имеет частоту 2ГГц, превышающая тактовую частоту компьютера;
-третий диск имеет больший объем ОП, чем его компьютер.
</span>
Var x, i: integer;
a: array [0..9] of integer;
begin
for i := 0 to 9 do
begin
readln(a[i]);
if (a[i] < 0) then x := x + a[i];
end;
writeln(x);
<span>end.
Вот так это сделать можно)</span>
Переключательная функция:
Её можно упростить, заменив на
Таблица истинности для исходного выражения приведена во вложении.
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
