Var T:string;
k:integer;
s,c:char;
begin
Writeln('Введите строку');
Readln(T);
Writeln('Введите буквы s и c');
Readln(c);
While not(Pos(s,T)=0) do
begin
k:=Pos(s,T);
T[k]:=c;
end;
Writeln('Изменённая строка - ',T);
end.
2d. Идентификатор не должен начинаться с цифры!
var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.
Сканер-средство ввода информации. Создаёт цветовую копию изображения объекта.
Микрофон-средство ввода информации. Прибор, преобразующий звуки, <span>голос, музыку в электрические колебания</span>