Var arr: array[1..27] of integer; summ: integer; begin Randomize; for var i := 1 to 27 do begin arr[i] := random(-5, 5); summ := summ + arr[i]; end; writeln('Массив: ',arr); writeln('Сумма всех элементов массива = ',summ); for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ; writeln('Массив: ',arr); end.
пример работы: Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1] Сумма всех элементов массива = 14 Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
var arr: array of integer; n,k,m: integer; begin write('Введи n: '); readln(n); Randomize; arr:= new integer[n]; for var i := 0 to n-1 do arr[i] := random(-5, 5); writeln('Массив: ',arr); for var i := 0 to n-1 do begin if arr[i]<0 then inc(k); if (i>=1) and (i<=6) then inc(m); if (i>=6) and (arr[i]>=0) then arr[i]:=1; end; writeln('Количество отрицательных элементов массива = ',k); writeln('Количество элементов массива в интервале [2..7] = ',m); writeln('Массив: ',arr); end.
Пример работы: Введи n: 5 Массив: [0,1,-4,1,3] Количество отрицательных элементов массива = 1 Количество элементов массива в интервале [2..7] = 4 Массив: [0,1,-4,1,3]
Введи n: 15 Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3] Количество отрицательных элементов массива = 5 Количество элементов массива в интервале [2..7] = 6 Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]
Принтер — это устройство, назначение которого переносить текст или изображения на бумагу и прочие твердые носители. Это простое определение, но, чтобы понять, как работает принтер, следует прочитать эту статью. Здесь описано, какие бывают виды печатающей техники, устройство и назначение прибора. А также рассмотрим их типы и классификацию.
Создание первого принтера началось еще в 1822 году. После проведения чертежей был разработан первый прототип. На это ушло 12 лет. Первая модель была создана Чарльзом Беббиджем. На тот момент прибор назывался разносной машиной. Он представлял собой механический компьютер со встроенной печатной машиной. Обычно его использовали в банках и при навигации. Машина была делать простые вычисления, выводя результаты на бумагу. Первая модель занимала много места, а состояла более, чем из 1 тыс. деталей.
arr: array[1..27] of integer;
summ: integer;
begin
Randomize;
for var i := 1 to 27 do
begin
arr[i] := random(-5, 5);
summ := summ + arr[i];
end;
writeln('Массив: ',arr);
writeln('Сумма всех элементов массива = ',summ);
for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ;
writeln('Массив: ',arr);
end.
пример работы:
Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
Сумма всех элементов массива = 14
Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
var
arr: array of integer;
n,k,m: integer;
begin
write('Введи n: ');
readln(n);
Randomize;
arr:= new integer[n];
for var i := 0 to n-1 do arr[i] := random(-5, 5);
writeln('Массив: ',arr);
for var i := 0 to n-1 do
begin
if arr[i]<0 then inc(k);
if (i>=1) and (i<=6) then inc(m);
if (i>=6) and (arr[i]>=0) then arr[i]:=1;
end;
writeln('Количество отрицательных элементов массива = ',k);
writeln('Количество элементов массива в интервале [2..7] = ',m);
writeln('Массив: ',arr);
end.
Пример работы:
Введи n: 5
Массив: [0,1,-4,1,3]
Количество отрицательных элементов массива = 1
Количество элементов массива в интервале [2..7] = 4
Массив: [0,1,-4,1,3]
Введи n: 15
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3]
Количество отрицательных элементов массива = 5
Количество элементов массива в интервале [2..7] = 6
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]
Принтер — это устройство, назначение которого переносить текст или изображения на бумагу и прочие твердые носители. Это простое определение, но, чтобы понять, как работает принтер, следует прочитать эту статью. Здесь описано, какие бывают виды печатающей техники, устройство и назначение прибора. А также рассмотрим их типы и классификацию.
Создание первого принтера началось еще в 1822 году. После проведения чертежей был разработан первый прототип. На это ушло 12 лет. Первая модель была создана Чарльзом Беббиджем. На тот момент прибор назывался разносной машиной. Он представлял собой механический компьютер со встроенной печатной машиной. Обычно его использовали в банках и при навигации. Машина была делать простые вычисления, выводя результаты на бумагу. Первая модель занимала много места, а состояла более, чем из 1 тыс. деталей.
Объяснение: