Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
//Для теста заполним массив n * m сл.числами и
//определяем количество нечетных
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
if a[i,j] mod 2<>0 then k:=k+1;
end;
writeln;
end;
writeln('Нечетных в массиве: ',k);
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
Вариант III.
В F можно попасть непосредственно из А или из Е.
Путь А-Е имеет длину 5. Осталось найти путь, если он есть, из А в Е с длиной не более 5-1-1=3. Почему столько? одна единица - это путь E-F, а вторая - это чтобы путь был короче A-F=5.
Как попасть в Е? Можно из А (длина 5 и это много) или D (длина 1).
Поищем вариант A-D диной не более 3-1=2. И он есть, и именно 2.
Поэтому кратчайший путь - это A-D-E-F с длиной 2+1+1=4
Вариант IV.
В F ведут пути из B, C, D ,Е. Это много. Посмотрим тогда куда можно попасть из А.
А-С длина 2, A-D длина 1.
D-F имеет длину 4 и путь A-F длины 4+1=5 мы уже нашли. Нет ли короче, хотя бы 4?
Вернемся к F. Чтобы получить путь не больше 4, из F должен быть путь в D не более 3 или в С не более 2. Таких путей нет., следовательно кратчайший путь A-D-F длины 1+4=5
В ячейку B3 вписать =ПРАВСИМВ(B2;4)