Электронно-вычислительная машина (ЭВМ). (компьютер)
Координатное устройство для управления курсором и отдачи различных команд компьютеру. (мышь)
Основной накопитель данных в большинстве компьютеров. (Диск)
Наименьшая единица информации в цифровом компьютере, принимающая значения "0" или "1". (Бит)
Считывание информации с внешнего устройства в память компьютера. (Ввод)
Результаты работы программы, выдаваемые компьютером пользователю, другому компьютеру или во внешнюю память. (Вывод)
Гигантская всемирная компьютерная сеть, объединяющая десятки тысяч сетей всего мира. Её назначение — обеспечить любому желающему постоянный доступ к любой информации. Интернет предлагает практически неограниченные информационные ресурсы, полезные сведения, учёбу, развлечения, возможность общения с компетентными людьми, услуги удалённого доступа, передачи файлов, электронной почты и многое другое. Интернет обеспечивает принципиально новый общения людей, не имеющий аналогов в мире. (Интернет)
Светящийся символ на экране дисплея, указывающий позицию, на которой будет отображаться следующий вводимый с клавиатуры знак.(Курсор)
Печатающее устройство. Преобразует закодированную информацию, выходящую из процессора, в форму, удобную для чтения на бумаге. (Принтер)
Объяснение:
uses Crt;
const n = 5;
Type Mas = array [1..n, 1..n] of integer;
Vec = array [1..n*n] of integer;
var A: Mas;
V: Vec;
i, j , k: integer;
p : longint;
begin
ClrScr;
Randomize;
p:=1;
WriteLn('Massiv A:');
for i:=1 to n do
begin
for j:= 1 to n do
begin
A[i, j]:= 1+random (9);
p:=p*A[i,i];
Write(A[i, j]:4);
end;
WriteLn; WriteLn;
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
if (A[i,j]>p) and (j<i) then
begin
k:=k+1;
V[k]:=A[i, j];
end;
end;
WriteLn('Vector V=');
for j:=1 to k do
Write(V[j]:4);
WriteLn;
if k=0 then Writeln ('None');
ReadLn;
end.