1. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] mod 2=0 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 2. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] > 9 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 3. var a: array[1..10] of integer; i: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 4. var a: array[1..10] of integer; i, r: Integer; Begin for i := 1 to 10 do read(a[i]); i := 1; while i < 10 do if a[i+1] < a[i] then begin r := a[i+1]; a[i+1] := a[i]; a[i] := r; i := 1; end else i := i + 1; for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 5. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 10 = 5 then kol := kol + 1; writeln(kol); End.
1. Внутреннюю — оперативную и внеш¬нюю — долговременную 2. Управление устройствами и задачами 3. Красный, зеленый, синий 4. Целые числа в памяти компьюте¬ра это: Дискретное и конечное множество 5. Контроллер 6. Передача данных, передача адресов
7. D
8. Прикладные программы общего назначения и специализированные программы 9. Главная формула информатики? 2i = N 16i = N 2f = Z 2i = M
10. Прикладные программы и системные программы
11. К основным типам устройств оперативной памяти относятся? Динамическая и статическая память 12. Компьютер 13. Какой универсальный звуко¬вой формат файлов используется для сохранения звука без потерь? WAV
14. Множество целых чисел в компьютере дискретно, конечно, ограничено
15. В памяти компьютера числа хранятся? В двоичной сис¬теме счисления
