Рассмотрим линейный массив целых чисел k [1..50]. напишите программу на языке pascal, используя процедуру, которая отображает положительные элементы на экране.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin var a:=MatrixRandom(7,7,0,9); var k:=0; for var i:=0 to 6 do begin for var j:=0 to 6 do begin Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
const n=7; var a:array[1..n,1..n] of integer; i,j,k:integer; begin Randomize; k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(10); Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
Частота процессора - Количество операций в секунду Разрядность шины - Системная шина процессора предназначена для обмена информацией микропроцессора с любыми внутренними устройствами микропроцессорной системы Объем кэш-памяти - Кэш память процессора выполняет примерно ту же функцию, что и оперативная память. Только кэш - это память встроенная в процессор. Кэш-память используется процессором для хранения информации. В ней буферизируются самые часто используемые данные, за счет чего, время очередного обращения к ним значительно сокращается. Количество ядер в домашних системах от одного до четырех
const
k = 10;
type
tK = array[1..k] of integer;
var
i: byte;
a: tK;
procedure PrintPos(a: tK);
var
i: byte;
begin
for i := 1 to k do
if a[i] > 0 then write(a[i], ' ');
writeln;
end;
begin
for i := 1 to k do
Read(a[i]);
PrintPos(a);
end.