Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Понятие СИСТЕМЫ и ГРАФА Система – это объект, состоящий из взаимосвязанных элементов и существующий как единое целое (из учебника). Система – это целое, состоящее из объектов, взаимосвязанных между собой (человек, книга, обучение в школе и т.д.). Граф – это средство для наглядного представления состава и структуры системы.Информационные модели на графах Граф состоит из вершин, связанных линиями. Направленная линия (со стрелкой) называется дугой. Линия ненаправленная (без стрелки) называется ребром. Линия, выходящая из некоторой вершины и входящая в неё же, называется петлей. петля ребро дуга вершина А В С.
1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
b[i,j]:=random(-10,10);
write(b[i,j]:4);
end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
c[i,j]:=a[i,j]*b[i,j];
write(c[i,j]:4);
end;
end;
<span>end.
2)</span>var a:array[1..1000,1..1000] of integer;
i,j,k,n,u:integer;
begin;
randomize;
readln(n);
writeln('A array:');
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10)-10;
write(a[i,j]:4);
end;
end;
for i:=1 to n do begin;
for j:=1 to n do
u+=a[i,j];
if u<0 then inc(k);
u:=0;
end;
writeln;
write('Result:',k);
<span>end.</span>
1.28
2.8
3.32
4.b:=5. c:=5
5.<span>b:=6. c:=3
6.</span><span>b:=6. c:=0
7.</span><span>b:=0. c:=3</span>
