<span>program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
writeln('Введите число элементов в массиве');
readln(d);
writeln('Введите число');;
readln(x);
b:=0;
for i:= 1 to d do
A[i] := random (20);
writeln(A);
for i:= 1 to d do
begin
c:= A[i];
if (c > b) then
b:=A[i]
end;
writeln('Максимальное значение в множестве: ', b);
for i:=0 to d do
begin
b:=A[i];
if b = x then
writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
end;
end.</span>
1. Иерархия
2. Вершина
3. Взвешенный
4. Дерево
5. Карта
6. Схема
7. Граф
8. Семантическая-сеть
9. Дуга
10. Ребро
вот полное решение данной , спрашиваемой вами задачи
если мы внимательно прочитаем задачу, то сможем сделать следующие выводы:
<em>Линда не в Риме+Линда равнодушна к балету+а кто живет в Риме певица</em> = <u>Линда снимается в кино</u> + <em>парижанка не снимается в кино</em> = <u>Линда живет в Чикаго</u>.
<em>Джуди живет не в Париже</em>+Линда живет в Чикаго = <u>Джудит живет в Риме</u>
следовательно Айрис живет в Париже
<em>а кто живет в Риме певица</em>+<u>Джудит живет в Риме</u> = <u>Джудит -певица.</u>
<u>Линда снимается в кино</u>+<u>Джудит -певица.</u> = Айрис -балерина
Ответ: Айрис живет в Париже и занимается балетом.
Var a:array[1..101] of integer;
b:array[1..101] of integer;
i,q,s,l,m:integer;
n:real;
begin
i:=1;
q:=1;
l:=1;
while q<>0 do
begin
write ('Введите ',i,' число: ');
read (a[i]);
q:=a[i];
i:=i+1;
s:=i-2;
end;
for i:=1 to s do
begin
if a[i] mod 8 = 0 then
begin
b[l]:=a[i];
m:=l;
l:=l+1;
end;
end;
for l:=1 to m do
begin
n:=n+b[l];
end;
n:=n/m;
if l=1 then write ('NO') else write ('Среднее африметическое = ',n:0:1);
end.