декларативные и процедурные
Program znanija_com;
const
n = 5;
m = 5;
rnd = 9;
type
tArray = array[1..n, 1..m] of integer;
var
arr : tArray;
i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
randomize;
writeln ('Исходная матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
arr[i,j] := random(rnd);
if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
else sum_nch := sum_nch + 1;
write(arr[i, j], ' ');
end;
writeln();
end;
for i:=1 to n do
sum_diag := sum_diag + arr[i,i];
max_num := arr[1,1];
max_index_1 := 1;
max_index_2 := 1;
for i:=1 to n do begin
for j:=1 to m do begin
if arr[i, j] > max_num then begin
max_num := arr[i, j];
max_index_1 := i;
max_index_2 := j;
end;
end;
end;
writeln('Колечество четных элементов равно ', sum_ch);
writeln('Колечество нечетных элементов равно ', sum_nch);
writeln('Сумма главной диаганили равна ', sum_diag);
writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
readln();
end.
Мак, мелисса.
Василек, вереск.
Дуб, дионея
Const n=15;
var a:array[1..n] of integer;
i,k,max:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(33)-15;
write(a[i]:4);
end;
writeln;
k:=0;
max:=-999;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then k:=k+1;
if (a[i]>max)and(a[i]<0) then max:=a[i];
end;
writeln('k = ',k,' max = ',max);
end.
Пример:
Массив A:
14 5 5 7 -10 -13 -3 10 5 -2 -4 -5 3 -10 -14
k = 7 max = -2
Как-то так... )))
Первая картинка (из начальной точки А в конечную точку И)
Вторая картинка (из начальной точки А в конечную точку К, НЕ проходящих через Е)
Каждой вершине, начиная с начальной (A), поставим индекс, равный количеству путей, которыми можно попасть в эту вершину. Для вершины A (начало пути) индекс всегда равен 1 (в начало пути можно попасть единственным образом – никуда не двигаясь).
Теперь сформулируем правило: индекс вершины равен сумме индексов его предков. Исходя из этого индекс Б равен 1 (предок у Б один – вершина A).
Индекс В равен 3 (предков у В три – вершина A, вершина Б и вершина Г; 1 + 1 + 1 = 3).
И т.д.
Исключаем из подсчёта вершину Е для второго задания.