type vector=array[1..k]o byte; masiv=aray[1..k] o vector;
var b: masiv;
procedure vved(n: byte; var a masiv);
var i,j: byte;
begin
randomize;
for i: =1 to n do
for j: =1 to n do
a[i,j]: =0;
for j: =round(n/2) to n do
for i: =n-j+1 to j do
a[i,j]: =random(255);
end;
proceure vuvid(n: byte; : masiv);
var i,j: byte;
begin
for i: =1 to do
begin
for j: =1 to n do
write(a[i,j]: 5);
riteln;
end;
end;
procedure rahnok(n: byte; a: masiv);
var i,j: byte; s,l: byte;
begin
l: =0;
for j: =1 to round(n/2) do
for i: =j to (n-j+1) do
if (a[i,j] mod 2=0) then l: =l+1;
writeln('kilkist=' l);
подробнее - на -
объяснение:
алексей-Ветошкин
06.01.2022
Пространственное (угловое или ) разрешение икс характеризует способность системы различать отдельные объекты или их детали в пространстве объектов или в плоскости изображений. классическими критериями пространственного разрешения или его мерами в оптике являются критерий рэлея, диаметр кружка эри, размер аберрационного кружка рассеяния (изображения точки). под мерой пространственного разрешения приемника излучения часто подразумевают угол в пространстве объектов, стягиваемый элементом чувствительного слоя приемника, хотя существуют алгоритмы обработки сигнала, позволяющие разрешать меньшие углы или размеры в плоскости чувствительного слоя, где строится изображение [50, 61]. возможность отличать одни объекты или их отдельные элементы от других во многом зависит от их свойств — излучательной и отражательной способностей, температур и т. д. наиболее часто эти различия для объектов описываются контрастом яркостей, а для их изображений - контрастом освещенностей. в соответствии с рекомендациями международной комиссии по освещению, под контрастом к понимается отношение разности яркостей l и ь2 двух объектов к их сумме: k=(li-l2)/(l1+l2). для объекта с яркостью lo6, находящегося на фоне с яркостью ьф, контраст определяется как к = (i-об _ 1фу(ьоб + ьф) . довольно часто за определение контраста (разностного контраста) принимают кь (lo6 ьф)/z/ф. при ьо6 > ьф контраст называется положительным, при ь0б < ьф - отрицательным. иногда говорят о контрастном отношении к0 = ь0& /ьф для ьоб> ьф или к0 = ьф/ь0б для ьоь < ьф. .
Tatyana Anton1475
06.01.2022
Обычный массив: берем список покупок. допустим, нужно купить молоко, хлеб, яйца, чай и мороженое. всего покупок: 5. и мы перебираем каждую покупку. в массиве можно записать как: array [1..5], так как 5 покупок. то же молоко под цифрой 1, значит это 1 элемент массива. чай будет 4 элементом массива. двухмерный массив: берем многоквартирный дом. в доме 3 этажа, на каждом этаже 4 квартиры. соответственно этаж можно приравнять как array [1..3,1..4] 1..3 это количество этажей, 1..4 это кол-во квартир. если в доме 3x4=12 этажей, то получается 12 элементов массива. так же, элементы массива могут быть как одинаковыми, так и разными, но чаще второе. (пример: дан массив с двумя элементами. первый элемент равен 5, второй 33) создать массив в pascal: в var напишите x: array [y..z] of what x - название массива y - начальная цифра массива (обычно 1, так и представим) x - последняя цифра массива (представим как 10) what - тип (integer, real и т.д.) найти значение массива и редактировать его: a: =x[4] данным действием мы присваиваем 4 элемент массива для a. x[4]: =b данным действием мы присваиваем b для 4 элемента массива. если что-то непонятно, задайте вопрос в комментарий. постараюсь объяснить именно то, что вам непонятно.
ответ:
program matrica;
const k=10;
type vector=array[1..k]o byte; masiv=aray[1..k] o vector;
var b: masiv;
procedure vved(n: byte; var a masiv);
var i,j: byte;
begin
randomize;
for i: =1 to n do
for j: =1 to n do
a[i,j]: =0;
for j: =round(n/2) to n do
for i: =n-j+1 to j do
a[i,j]: =random(255);
end;
proceure vuvid(n: byte; : masiv);
var i,j: byte;
begin
for i: =1 to do
begin
for j: =1 to n do
write(a[i,j]: 5);
riteln;
end;
end;
procedure rahnok(n: byte; a: masiv);
var i,j: byte; s,l: byte;
begin
l: =0;
for j: =1 to round(n/2) do
for i: =j to (n-j+1) do
if (a[i,j] mod 2=0) then l: =l+1;
writeln('kilkist=' l);
подробнее - на -
объяснение: