// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,k,s:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if Odd(a[i,j]) then Inc(k) end; Writeln end; if k>5 then begin Writeln('Средние арифметические отрицательных элементов по строкам'); for i:=1 to m do begin s:=0; k:=0; for j:=1 to n do if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end; if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000'); end end else begin Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end; Writeln end end end.
«Феофанія» - парк-пам'ятник садово-паркового мистецтва та садово-парковий комплекс розташований на території Голосіївського району, який створено в 1972 році.
Заповідник розташований в південній частині Голосіївського району. Головною прикрасою парку вважають ланцюжок із п’яти озер, їх називають палладінські озера. На території «Феофанії» розташований гідрологічний пам'ятник природи місцевого значення та два водних джерела, багато дерев, кущів та ліан. Зберіглося багато дерев віком від 100 до 300 років і більше. У парку були зареєстровані 9 червонокнижних видів комах.
Парк «Кіото»
Парк був заснований у 1972 році , він знаходиться на Лісовому масиві. Всі деталі та символіка були запозичені із паркової культури Японії.
В центрі «Кіото» розташований сад каменів. З рослин можна побачити вікові сосни, японський клен. У вересні 2011 році була висаджена алея сакур. Дерева висаджені в два ряди вздовж пішохідних доріжок з внутрішньої сторони. В парку є дзен-сад — гравієвий сад в японському стилі з сухим озером, посеред якого стоять два камені, з'єднані містком. Поряд знаходиться альтанка та водоспад і сухий струмок. В озері живуть червоні рибки.
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,k,s:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4);
if Odd(a[i,j]) then Inc(k)
end;
Writeln
end;
if k>5 then begin
Writeln('Средние арифметические отрицательных элементов по строкам');
for i:=1 to m do begin
s:=0; k:=0;
for j:=1 to n do
if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end;
if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000');
end
end
else begin
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end;
Writeln
end
end
end.
Тестовые решения:
Введите число строк и столбцов массива:
8 6
*** Исходный массив ***
-16 -8 -1 24 -22 1
-9 -20 -25 13 -11 10
-15 10 -12 20 -22 3
-6 25 -3 25 -14 22
24 -4 24 17 -4 -17
-23 -9 -22 1 -18 -13
-12 13 6 -16 2 -13
19 8 -22 14 -3 4
Средние арифметические отрицательных элементов по строкам
-11.75000
-16.25000
-16.33333
-7.66667
-8.33333
-17.00000
-13.66667
-12.50000
Введите число строк и столбцов массива:
3 5
*** Исходный массив ***
3 24 -21 -22 -8
-21 14 -22 0 -22
15 -16 -2 6 22
*** Результирующий массив ***
6 48 -42 -44 -16
-42 28 -44 0 -44
30 -32 -4 12 44
Парк «Феофанія»
«Феофанія» - парк-пам'ятник садово-паркового мистецтва та садово-парковий комплекс розташований на території Голосіївського району, який створено в 1972 році.
Заповідник розташований в південній частині Голосіївського району. Головною прикрасою парку вважають ланцюжок із п’яти озер, їх називають палладінські озера. На території «Феофанії» розташований гідрологічний пам'ятник природи місцевого значення та два водних джерела, багато дерев, кущів та ліан. Зберіглося багато дерев віком від 100 до 300 років і більше. У парку були зареєстровані 9 червонокнижних видів комах.
Парк «Кіото»
Парк був заснований у 1972 році , він знаходиться на Лісовому масиві. Всі деталі та символіка були запозичені із паркової культури Японії.
В центрі «Кіото» розташований сад каменів. З рослин можна побачити вікові сосни, японський клен. У вересні 2011 році була висаджена алея сакур. Дерева висаджені в два ряди вздовж пішохідних доріжок з внутрішньої сторони. В парку є дзен-сад — гравієвий сад в японському стилі з сухим озером, посеред якого стоять два камені, з'єднані містком. Поряд знаходиться альтанка та водоспад і сухий струмок. В озері живуть червоні рибки.
Объяснение: