2) Какое из устройств компьютера является «мозгом» компьютера? a) Память
b) Процессор
c) Монитор
d) Мышь
3) Все программы и данные, необходимые для работы компьютера, помещаются в …
a) Оперативной памяти
b) Процессоре
c) Постоянную память
d) На лазерный диск или дискету
4) Какое устройство, предназначено для вывода информации в компьютере?
a) Сканер
b) Монитор
5) Выберите клавишу управления курсором.
c) Клавиатура
d) Процессор
a) {Ctrl}
b) (1)
c) {Shift}
d) {Esc}
6) Отметьте современный информационный носитель.
a) Телефон
b) Интернет
Отметьте инструмент графического редактора.
c) Видеокассета
d) Телеграф
8)
a) Бумага
b) Клей
c) Ножницы
d) Заливка
Выберите из списка элементы окна приложения Paint.
a) Название приложения
b) Строка меню
c) Кнопка закрыть
d) Панель инструментов
e) Палитра
f) Панель Стандартная
9) Отметьте устройства, предназначенные для ввода информации.
a) Монитор
b) Процессор
c) Сканер
d) Принтер
e) Микрофон
f) Клавиатура
2) Какое из устройств компьютера является «мозгом» компьютера?
a) Память
b) Процессор
c) Монитор
d) Мышь
3) Все программы и данные, необходимые для работы компьютера, помещаются в …
a) Оперативной памяти
b) Процессоре
c) Постоянную память
d) На лазерный диск или дискету
4) Какое устройство, предназначено для вывода информации в компьютере?
a) Сканер
b) Монитор
5) Выберите клавишу управления курсором.
c) Клавиатура
d) Процессор
a) {Ctrl}
b) (1)
c) {Shift}
d) {Esc}
6) Отметьте современный информационный носитель.
a) Телефон
b) Интернет
Отметьте инструмент графического редактора.
c) Видеокассета
d) Телеграф
8)
a) Бумага
b) Клей
c) Ножницы
d) Заливка
Выберите из списка элементы окна приложения Paint.
a) Название приложения
b) Строка меню
c) Кнопка закрыть
d) Панель инструментов
e) Палитра
f) Панель Стандартная
9) Отметьте устройства, предназначенные для ввода информации.
a) Монитор
b) Процессор
c) Сканер
d) Принтер
e) Микрофон
f) Клавиатура
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9