// PascalABC.Net 3.0, сборка 1064 // "Классическое" решение const nn=20;
type SqMatrix=array[1..nn,1..nn] of integer;
function AvgRow(row,cols:integer; a:SqMatrix):double; var j,s:integer; begin s:=0; for j:=1 to cols do s:=s+a[row,j]; AvgRow:=s/cols end;
var i,j,n,k:integer; cavg:double; M:SqMatrix;
begin Write('Количество строк (столбцов) в матрице: '); Read(n); Write('Ограничение для среднего арифметического: '); Read(cavg); Randomize; // Инициализация и вывод исходной матрицы Writeln('*** Сгенерированная матрица ***'); for i:=1 to n do begin for j:=1 to n do begin M[i,j]:=Random(51)-20; Write(M[i,j]:4) end; Writeln end; // Собственно, решение задачи k:=0; for i:=1 to n do if AvgRow(i,n,M)<cavg then Inc(k); Writeln('Количество отобранных строк равно ',k) end.
Второе решение дано для демонстрации возможностей современного Паскаля. Оно не подходит в качестве ответа в той части, что не использует отдельную функцию для нахождения среднего. По лаконичности записи оно вполне может соперничать с постепенно набирающим популярность языком, как Python
// PascalABC.Net 3.0, сборка 1064 // Решение, использующее возможности версии 3.0
var n: integer; cavg: double; M: array of array of integer;
begin Write('Количество строк (столбцов) в матрице: '); Read(n); Write('Ограничение для среднего арифметического: '); Read(cavg); // Инициализация и вывод исходной матрицы Writeln('*** Сгенерированная матрица ***'); SetLength(M, n); for var i := 0 to n - 1 do begin M[i] := ArrRandom(n, -25, 25); M[i].Println end; // Собственно, решение задачи var k:=M.Select(x->x.Average < cavg).Count(x->x=True); Writeln('Количество отобранных строк равно ', k) end.
Алгоритм, записанный на языке программирования и предназначенный для выполнения на компьютере, называется программой.
Минимальный набор ПК — системный блок, монитор, клавиатура. (иногда ещё зачем-то добавляют мышь)
Центральное устройство компьютера, предназначенное для обработки данных в соответствии с программой, называется процессором.
Устройства ввода переводят информацию с языка человека на язык компьютера.
Устройства вывода переводят информацию с двоичного языка в привычную для человека форму.
Память компьютера делится на внутреннюю и внешнюю.
Программы и данные в процессе работы хранятся в оперативной памяти компьютера.
После выключения компьютера данные и программы хранятся в энергонезависимой памяти компьютера.
Важнейшая характеристика процессора разрядность. Измеряется она в битах и у современных компьютеров составляет 64 бита.
Вторая важнейшая характеристика процессора тактовая частота, измеряется в МГц, у современных компьютеров может достигать 3.7 ГГц.
К устройствам ввода относятся такие устройства как клавиатура, мышь, сканер, джойстик, микрофон, сенсорный экран, графический планшет.
Важнейшая характеристика графических устройств ввода — разрешающая измеряемая в dpi (точки на дюйм), 1 дюйм = 2,54 см.
К устройствам вывода относятся: монитор, принтер, колонки.
Расположите устройства внешней памяти в порядке убывания их объёма: CD-ROM, жёсткий диск, дискета, DVD-ROM: Жесткий диск > DVD-ROM > CD-ROM > дискета.