Семантическая сеть во вложении
Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
Домашние приборы,размер,и цвет
var
s: string;
begin
s := 'informatica';
writeln(s);
writeln(copy(s, 3, 5));
writeln(copy(s, 6, 3));
writeln(copy(s, 8, 3));
writeln(copy(s, 8, 2) + s[5]);
end.
Просто впиши ссылку на существующий сайт, через несколько минут они сами выделяться и будет возможность перейти на ссылку, но не уверена, что именно в блокноте это работает. Попробуй другой текстовой редактор, если не получится.